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INTRODUCTION 


Welcome to Getting Started on your Oric. You have in 
your hands a guide to one of the most advanced pieces of 
equipment you can buy today — a microcomputer. 


This book will take you, step by step, through BASIC 
programming, showing you many features of the Oric 1. 
We will explain its colour, sound and high resolution 
graphics in detail so that you will be able to include all 
three in your own programs comfortably. And you will be 
able to write programs, we assure you. 


Learning BASIC on the Oric is going to be painless, in 
fact, with this book, it’s going to be fun. The Oric uses a 
version of BASIC called Microsoft, a version widely 
accepted as standard on most microcomputers, so if you 
decide to buy another computer after you’ve learnt to use 
the Oric then you will not have too much trouble making 
the change. 


Come on and join us now, as together we discover how we 
can make the most of your Oric 1. 


Tim Hartnell 
Peter Shaw 
London, August 1983 


CHAPTER ONE 
DISCOVERING THE 
KEYBOARD 


You’ve just bought a great computer, and in this book we’re 
going to show you how to get the most out of it. Don’t worry if 
this is the first computer you have ever owned. We’re going to 
take things slowly, and in small steps, so you’Il have no trouble 
keeping up with us. 


READ THE BOOK WITH YOUR COMPUTER 
TURNED ON 


It is vital that you have the computer turned on at all times when 
you read this book, (or at least the first time you read through 
it). This is an action book, and unlike a novel, it is not designed 
simply to be read. This book is like a book on how to drive, you 
can never learn about changing gears, and how it feels to handle 
a car in traffic, without actually taking command of a vehicle. 
So it is with your computer and this book. Try out each new 
command and function when it is explained to you, experiment 
with the games and other programs, and you’ll find you’re 
learning to program without even trying. 


THE KEYBOARD 


First we have to find our way around the keyboard. It looks like 
a small typewriter keyboard with a few extra keys, and this is 
what it is. It is surprising how quickly it will become familiar to 
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you, in fact, by the time you have worked through this book 
you will probably be able to type with some competence. 


THE BASIC KEYBOARD 


Leaving out the extra keys for a moment, let’s look at the main 
part of the keyboard. 


This part is known as a QWERTY keyboard. If you look at the 
second row down you’ll see the first six letters spell QWERTY. 
Try typing something in, like your name. As you type, the 
letters will appear on the screen and you will also hear a small 
beep every time you press a key, this is so that you can type 
something in and, without looking at the screen, you know it 
has been entered. Practice as much as you can with the 
keyboard, sentences like The quick brown fox jumped over the 
lazy dogs are ideal, because they use every letter of the 
alphabet. Once you are happy with the QWERTY peemere we 
can then move on to the extra keys. 


DELETE 


By now the screen may be looking pretty crowded, and 
something like a disaster area. If you look at the right hand end 
of the second row you’|l see a key marked DEL, this is short for 
DELETE. If you hold down this key it will move back over 
what you typed, erasing as it goes. 


Another way of clearing up ‘rubbish’ like this is to turn off the 
power for a short while, but this is not advised as it causes the 
contents of the memory to be erased. 


THE SHIFT KEYS 


At both ends of the fourth row of keys down you'll find keys 
marked SHIFT. Their effect is much the same as it is on an 
ordinary typewriter, when you’re in lower case mode, (we'll 
talk about that later), if you press shift and a letter key then you 
get the letter in upper case. If you press shift and a numeric key 
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then you get the symbol above the key, 1.e. press SHIFT/2 you 
will see the @ symbol appear on the screen. 


THE CURSOR KEYS 


On either side of the space bar you’ll see four curious looking 
keys with arrows above them. These keys are called cursor 
keys. A cursor is that flashing blob which has traced your 
typing on the screen, this is there to tell you where the next 
character you type will appear on the screen. Anyway, to get 
back to the point of those keys, try pressing the key with the 
down arrow above it. Did you expect that to happen? Try 
pressing the other cursor keys, you should know what will 
happen now. 


CHAPTER TWO 
PRINTING THINGS ON 
THE SCREEN 


THE RETURN KEY 


The key that you’ll probably use most often is RETURN. 
Whenever you’ re typing information into the computer, it will 
wait until you press RETURN before acting on the material 
you’ve entered. If you’ve written a program line, (more of that 
later), it will ignore that line even if you have pressed 
RETURN, i.e. if you type in PRINT 2 and then RETURN the 
computer will display: - 


PRINT 2 
2 


But if you type 18 PRINT 2 and then press RETURN the 
computer will display: 


_ By adding a number in front of the command you have made it 
a program line. The computer will not act upon the command 
until you type RUN, type RUN now, do you see what has 
happened? The computer has RUN your first program, we will 
now explain what your program is. 


THE PRINT COMMAND 
Type LIST and the RETURN, you should see your program: 
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1@ PRINT 2 


As we explained before, the number 19 is a line number, if you 
type in 


5 PRINT 1 


then type LIST, (LIST is acommand to list your program), you 
should see: 


2 ERIN 4 
1Q@ PRINT 2 


Isn’t that good, the computer puts line 5 in front of line 19, 
clever huh? Now look at that word following the line number, 
PRINT. If you RUN the program then you should see how 
PRINT works. It takes the information which follows the 
PRINT command, with a few exceptions which we’ll learn 
about ina moment, and PRINTs this on the screen, which after 
all is exactly what you’d expect it to do. 


But your computer is cleverer than that. If the word PRINT is 
followed by a sum, it will work out the answer before it 
PRINTs, and it will PRINT the answer. Try it now. Enter the 
following line: 


PRINT 5+3 


You should see the figure 8 appear. The computer added 5 and 
3 together, as instructed by the plus (+) sign, then printed the 
result on the screen. It can do subtraction as well. Type in this, 
and remember to type RETURN afterwards. 


PRINT 8-3 


Now the computer can — of course — do a wide range of 
mathematical tasks, many of them far more sophisticated than 
simple addition and subtraction. But, there is a slight hitch. 
When it comes to multiplication, the computer does not use the 
x sign which you probably used at school. Instead, it uses an 
asterisk (*), and for division, instead-of + the computer uses a 
slash sign (/). 
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DOING MORE THAN ONE THING AT ONCE 


The computer is not limited to a single operation in a PRINT 
statement. You can combine as many as you like. Try the next 
one, which combines a multiplication and a division. Type it in, 
then press RETURN to see the computer evaluate it: 


PRINT 7X875 


This seems pretty simple. Just type in PRINT followed by the 
material you want it to PRINT, and that’s all there is to it. But, 
it’s not as simple as that! Try the next one out and see what 
happens: 


PRINT TESTING 


That doesn’t look too good. Instead of the word TESTING 
we’ve got the number @. To explain briefly what has happened, 
let’s consider the pocket calculator. On your calculator you can 
possibly store away numbers by pressing the Memory Plus 
button. On your Oric you can also store away a number, in fact 
you can store away quite a few numbers. When you told the 
computer to PRINT TESTING you were asking the computer 
to print one of the numbers that it had stored away in its 
memory. But, as you hadn’t told the computer what TESTING 
actually equals then it takes the value to be 8. Foolish machine. 
Computers may be very, very clever machines, but they need to 
be led by the hand, like a very stupid child who has to be told 
exactly what to do. Give them the right instruction and they will 
do the right thing. But give them the wrong instruction or — 
even worse — confuse them, and they will give up in despair, or 
do something quite alien to your intentions. 


STRINGS 


If you want the computer to print the word TESTING you must 
put quote, or speech marks around the word, like this: 


PRINT “TESTING” 


This time when you press RETURN the word TESTING will 
appear on the screen. This is worth remembering. When you 
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want the computer to print out a word, or a whole lot of words, 
symbols, spaces and numbers, you need to put quote marks 
around the material you want to print. Information held in this 
way, between quote marks, is called a most peculiar name in 
computer circles. The jargon for information enclosed in quote 
marks is a string. So, in our example above, the word 
TESTING, when enclosed by quote marks, is called a string. 


OUR SECOND PROGRAM 


Type the following into the computer. Notice each line starts 
with a number, as ‘explained before, this is a line number. 
Remember to press RETURN at the end of each line. 


1@ PRINT “JACK AND JILL" 
2@ PRINT "WENT UP THE HILL" 
3@ PRINT "TO FETCH A PAIL" 
4@ PRINT “OF WATER" 


When you have typed the whole program into the computer, 
type LIST, press RETURN and check that the program on the 
screen is the same as the one listed above. RUN the program as 
you did before, did the computer do what you expected it to do? 
If it did something drastically different, 1.e. gave you an error 
message, then check that you typed everything in correctly, and 
RUN the program again. 


GETTING THINGS INTO ORDER 


Look at the program again, do you notice how line 29 follows 
line 10? And line 3@ is before 40? Of course you would expect 
no less from your computer, after all, it can count! But what if 
we typed in another line, say line 25. The computer would 
rearrange the list of instructions so that line 25 came between 
line 20 and line 39. This is useful if you forgot an instruction, or | 
you want to add a line, it is also why most programs are 
numbered in steps of 18. 


Type in the following line. 
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25 REM A LINE IN THE MIDDLE 
Now, LIST the program, it should look like this: 


1@ PRINT “JACK AND JILL" 

20 PRINT “WENT UP THE HILL" 
25 REM A LINE IN THE MIODLE 
30 PRINT "TO FETCH A PAIL" 
40 PRINT “OF WATER" 


As you can see, the line numbered 25 has moved itself into the 
correct position in the program, between lines 20 and 38. Now 
RUN the program. 


MAKING REMARKS 


You should find that the new line, line 25, has not made any 
difference at all to the running of the program. Why not? Why 
did the computer decide to ignore line 25? The word REM 
stands for remark and is used within programs when we want to 
include information for human use only. You’ll find REM 
statements scattered throughout the programs in this book. In 
each and every case the computer ignores the REM statements. 
They are only there for your convenience, for the convenience 
of the programmer, or for someone else reading the program. 


Often you’ll use REM statements at the beginning of the 
program, like this one: 


S REM JACK AND JILL POEM 


You may wonder why this would be necessary. After all, it is 
pretty obvious that the computer is holding the Jack and Jill 
poem, even without the line 5 REM statement. You are right. 


In this case there is little point in adding a title REM statement 
to this program. But have a look at some of the programs 
further on in this book. Without REM statements you’d havea 
pretty difficult time trying to work out what the program was 
supposed to do. 
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REM statements are often scattered throughout programs. 
There they serve to remind the programmer what each section is 
supposed to do. Once you’ ve been programming a while, you'll 
be amazed at how many programs you’}l collect in listing form 
which — when you go back to them in a month or so — will be 
totally obscure. You won’t have a clue how the program works 
or, even more important, what on earth it is, or what it is 
supposed to do. This is where you will find REM statements 
invaluable. 


It is worth getting into good habits early as a programmer. So, 
we suggest you start right now adding REM statements to your 
programs. If you come across programs, or program 
fragments in this book, which you want to keep, and which do 
not have REM statements, get into the habit of using REM 
statements by adding them to these programs. And make sure 
you use them in your original programs. 


BACK TO PRINT 


Let’s return to the PRINT command. Empty your computer’s 
memory by typing NEW and then PRESS return, you have lost 
the contents of the computer’s memory, NEW is a pretty 
drastic command, and should only be used when you are sure 
that you’ ve finished with a program. You’re ready for another 
program, but first let’s learn a little trick which keeps things 
tidy. Press the CTRL and at the same time press the L key. The 
screen should have suddenly cleared, if it did not then send your 
Oric back to Tangerine for immediate replacement! 


MORE PRINT STATEMENTS 
Type in the following program and RUN it: 


1@ PRINT 1,2 
15 PRINT 

2@ PRINT 132353 
25 PRINT 

3@ PRINT "“ORIC" 
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35 PRINT 

4@ PRINT °23+34=" 523+34 

45 PRINT 

3B PRINT "2xk3=" 52x3 

35 PRINT 

6@ PRINT 3°5 

65 PRINT 

7@ PRINT "THE ANSWER IS "323+5-776 


You should get something like this on the screen: 


t <2 


ORIC 

23+34=57 

2X3=6 

243 

THE ANSWER IS 26, 8333334 
Now there’s a lot we can learn from this program. 


Firstly, as in the Jack and Jill program, the computer executes a 
program line by line, starting at the lowest number and 
proceeding through the line numbers in order until it runs out 
of numbers, when it stops. (You’ll discover that this orderly 
progression of line numbers does not always apply, as there are 
ways of making the computer execute part of a program out of 
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strict numerical order, but for the time being it is best to assume 
that a program will be executed in order). 


Look at the first line of your program, line 18. You can see that 
there is acomma between the | and the 2. This has the effect of 
getting the computer to print the first number (1) on the left 
hand side of the screen, and the second number (2) five spaces 
further on. When you use a comma like this to divide things 
which follow a PRINT statement (but not when the comma is in 
a string, that is between quote marks), it divides the screen into 
parts, each part five spaces long, printing the information 
which follows the comma in the next available part. 


The second line of the program, line 15, is just the word PRINT 
with nothing following it. This has the effect, as you can see in 
the printout (and on the television screen) of putting a blank 
line between those lines which do include information after 
them. (The same comment applies to lines 25, 35, 45, 55 and 
65). 


Line 26 has three numbers (1, 2 and 3) separated not by commas 
(as in line 18) but by semicolons. This has the effect of putting a 
single space between the numbers. This single space only 
applies to numeric information, when you come to strings then 
there are no spaces put in between the information. We suggest 
you experiment by using the semicolon. 

Line 3@ is the word ORIC and this is a.......... If you 
mentally said string when you came to those dots, then you’re 
learning well. The word is a string, in computer terms, because 
it is enclosed by quote marks. — 


Line 4@ is rather interesting. For the first time we have included 
numbers and a symbol (=) within a string. As you can see, the ~ 
computer prints exactly what is within the quote marks, but 
works out the result of the calculation for the material outside 
the quote marks, giving — in this case — the result of adding 23 
to 34. Try to remember that the computer considers everything 
within quote marks as words, even if it is made up from 


12 GETTING STARTED ON YOUR ORIC 


numbers, symbols, or even just spaces, or any combination of 
them, while it counts everything that is not within quote marks 
in a PRINT statement as a number. 


So line 49 treats the first part, within quote marks, as a string, 
and the second part, outside quote marks, as numerical 
information which it processed. 


In line 50 we see the asterisk (*) used to represent multiplication 
and the computer quite reasonably works out what 2 times 3 is 
and prints the answer 6. In line 6@ we come across a new, and 
strange sign, a little upward arrow. This means ‘raise to the 
power of’ so line 68 means PRINT 3°. Now, it is pretty difficult 
for acomputer to print another number halfway up the mast of 
another number, so we use the upward arrow to remind you (by 
pointing upward) that it really means ‘print the second number 
up in the air’. You probably know that 7’ is read as ‘seven 
squared’. It means raise seven to the second power. Ina similar 
way, 3° means raise three to the fifth power which is exactly 
what the computer does in line 69. 


The final line of this program combines a string (‘the answer 
is’) with a numerical information (23 + 5— 7/6). You can see 
that, as expected, the computer works out the sum before 
printing the answer, and prints the string exactly as it is. Look 
closely at the end of the string. You’ll see there is a space there. 


After the closing quote is a semicolon (;) which, as we learned in 
_jine 26, as far as strings are concerned, joins various elements 
of a PRINT statement together. This semicolon means that the 
result of the calculation is printed up next to the end of the 
string. However, if there were no space within the quote marks, 
the result of printing line 78 would be: 


THE ANSWER IS26,8333334 


As you can see, this is by no means as clear as the original 
version. 
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That brings us to the end of the second chapter of the book. 
We’re sure you’re pleased at how much you’ve learned so far, 
and are looking forward to continuing your learning. But now 
you’ve earned a break. So take that break, and then come back 
to the book to tackle the third chapter. 


CHAPTER THREE 
RINGING THE 
CHANGES 


It’s all very well getting things onto the computer’s screen, as 
we learnt to do in the last chapter, but from time to time you’ll 
discover we need to be able to get printed material off the screen 
during a program. Wecan’t use that little trick we learnt before 
because the computer can’t reach out of the case and press the 
necessary keys. What we need is a command that will clear the 
screen. We can do this with the command CLS, which stands 
for Clear the Screen. 


CLEAR THE SCREEN 


Enter the following program into your computer and run it. 


1@ PRINT “TESTING" 
20 INPUT As 
38 CLS 


When you run the program, you’ll see the word TESTING 
appear on the screen, more or less as you’d expect: 
TESTING 


4 


However, can you see the flashing cursor below the word 
TESTING and behind a question mark. 
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This is an input prompt. An input prompt, which appears in a 
program when the computer hits the word INPUT, means that 
the computer is waiting for you to enter something from the 
keyboard. You’ll recall that we spoke earlier about strings and 
about how they were anything which was enclosed by quotes. 
The computer signals that it is talking about a string by using 
the dollar sign. So line 20 is waiting for a string called A$ to be 
INPUT by you. 


So what are we going to do about that flashing cursor? You will 
have to type something in, your name will do, it doesn’t make 
much difference to the way the program runs. 


When you have finished typing your message, remember to 
press RETURN, or the computer won’t know that you’ve 
finished. 


Once you’ve done this the computer moved along to line 30 
where it found the instruction CLS. As you know this means 
Clear the Screen, and what did your program do? yes it cleared 
the screen. 


Run the program a few more times, until you’ ve got a good idea 
of what is happening, and you’ve followed through — in your 
mind — the sequence of steps the computer is executing. 


DOING IT AUTOMATICALLY 


Instead of waiting for you to enter something from the 
keyboard, you can write a program which clears the screen 
automatically, as in our next example. Enter this next program 
into your computer, type RUN and press RETURN, and sit 
back for the amazing Flashing Word demonstration. 
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19 PRINT “AUTOTESTING" 
20 FOR A=1 TO 1280 

3Q NEXT A 

4@ CLS 

5@ FOR A=] TO 18a 

6@ NEXT A 

72 RUN 


In this program you’ll see the word AUTOTESTING 
alternately flashing off and on at the top of the screen. What’s 
happening here? Let’s look at the program, and go through It 
line by line. 


Firstly, as you know, line 10 prints the word AUTOTESTING 
on the screen. Next, the computer comes to line 28, where it 
meets the word FOR. We’ll be learning about FOR/NEXT 
loops (as they are called) in detail in a later chapter, but all you 
need to know here is that the computer uses them for counting. 
In this program line 28 and 38 (FOR is in line 26 and NEXT in 
line 3) tells the computer to count from one to one hundred, 
before moving on. As you can see, it does this counting pretty 
quickly. 


So, it waits for a moment while counting from one to a 
hundred. Then it comes to line 40, which is the command CLS, 
which tells the computer to clear the screen. It does this, and 
AUTOTESTING disappears from the screen. The computer 
then encounters, in lines 50 and 60, another FOR/NEXT loop, 
SO it waits a while as it counts from one to one hundred again. 
Continuing on in sequence, it comes to line 70, where it finds 
the word RUN. Now, as you know, you get the computer to 
execute a program by typing in RUN, followed by RETURN. 
But RUN is a command, so there is no reason why you cannot 
use it within a program, as we have in line 70 of this program. 
When the computer comes to line 70, it obeys the command, 
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and RUNSs the program again, so that it goes through the 
program again and again. 


CHANGING PROGRAM LINES EASILY 


Your computer is provided with an EDIT function, which 
makes it very simple to change the content of the lines within a 
program. Pull the plug out on the last program, then enter the 
following program into your computer. Do not RUN the 
program. We want to explain something about the program 
before you do: 


1@ REM AN EDIT TEST 
2@ PRINT "TESTING" 
36 PRINT “EDIT TESTING" 


Enter as a direct command EDIT 16. You should see line 18 
appear on the screen, just below your last command. Now, 
using the cursor keys, which as we said before, are on either side 
of the space bar, move the cursor so that it is flashing just 
before the number 19, like this: 


B1@ REM AN EDIT TEST 


You will now have to enter the part of this line you want to keep 
into the computer. To do this, put one finger on the CTRL key, 
and another finger on the A key. The cursor should move over 
one position. Keep pressing this key until the cursor is flashing 
over the T in TEST. Then type over the rest of the line changing 
TEST for CHANGE. When you have typed in CHANGE, 
press RETURN and LIST the program. It should now look like 
this: 

1@ REM AN EDIT CHANGE 

20 PRINT "TESTING" 

30 PRINT “EDIT TESTING" 

Before you read on, take some time changing lines 29 and 30 as 
well as line 10. But remember that you will have to put speech 


marks around anything you change in the last two lines, or you 
will be told that you have made a mistake. 
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GETTING THE PROGRAM BACK 


We have already covered the word LIST, but there are a 
number of useful things that you can do with it. When you tell 
the computer to LIST the program, you needn’t LIST all of it, 
_ you can list part of it, or just a single line. To list just one line 
type LIST, followed by the line you want to examine. If you 
want to list just part of your program then type LIST, followed 
by the first line number, a minus sign, and then the last line you 
want to see, 1.e.: 


LIST 20-30 


Youcan also omit the first or last number, i.e. if you want to list 
the program to line 29 then type: 


EIS], =29 

If you want to list the program from line 26 onwards then type: 
LIST 2@- 

USING A PRINTER 


There are two commands which trigger the printer, and they are 
very simple to use and remember. They are LPRINT, which 
stands for Line Print, and LLIST, which stands for Line List. 
If you are thinking that you have seen commands similar to 
those before somewhere, then you’d be right. The first one 
LPRINT, has the same effect as PRINT, but only sending the 
information which follows to the printer, instead of the screen. 
The second command — LLIST — LISTs the whole program 
on the printer, so that you have got a permanent copy of your 
program. 


CHAPTER FOUR 
DESCENT INTO 
CHAOS 





It’s time now to start developing some real programs. You’ll 
notice that from this point in the book there are some rather 
lengthy programs. Many of them will contain words from the 
BASIC programming language which have not been explained. 
This is because, as programs become more complex (and far 
more Satisfying to run) it becomes more and more difficult to 
keep programming words which have not been explained out of 
the program. However, it is not a major problem. 


Weare working methodically through the commands available 
onthe computer and, in due course, all of them will be covered. 
When you come across a word in a program which seems 
unfamiliar, just enter it into the computer. You’ll find that 
you’ll soon start picking up the meaning of words which have 
not yet been explained, as you see how they are used within a 
program. So, if you find a new word, don’t worry. The 
program will work perfectly without you knowing what the 
word is, and investigating the listing after you’ve seen the 
program running is likely to allow you to work out what it 
means anyway. 


RANDOM EVENTS 


In the world of nature, as opposed to the manufactured world 
of man, randomness appears to be at the heart of many events. 
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The number of birds visible in the sky at any one time, the fact 
that it rained yesterday and may rain again today, the number 
of trees growing on the side of a mountain, all appear to be 
~ somewhat random. Of course, we can predict with some degree 
of certainty whether or not it will rain, but the success of our 
predictions appears to be somewhat random as well. When you 
toss acoin in the air, whether it lands heads or tails depends on 
chance. The same holds true when you throw a six-sided die in 
the air. Whether it lands with the one, the three or the six 
showing depends on random factors. 


Your computer has the ability to generate random numbers 
which are very useful for getting the computer to imitate events 
in the real world. On the Oric you must use a function which 
looks like this: 


RND (n) 


You will notice that the m must be replaced by an integer, (whole 
number). If the number is greater or equal to 1, then the 
number generated is between @ and 1. If ” equals @, then the 
most recently generated number is produced. If 7 is less than 
zero, then the same number is produced for each n. The one 
that we’re interested in is the first one, to produce a random 
number between @ and 1. To see RND in action, try the 
following program: 
1@ PRINT RNDC1) 

280 GOTO 184 

When you run it, you’ Il see a list of numbers like this appear on 
the screen: 


; 82365957603 
, 313906953 
. 0399633678 
sZ1 2673365 
- 161374366 
» 203135255 
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. 677845822 
. 17392633 

, 588175513 
. 754821112 
. 429002078 


If you leave it running, it will go on and on apparently forever, 
writing up new random numbers on the screen. 


Now random numbers between zero and one are of limited 
interest if we want to generate the numbers and get them to 
stand for something else. For example, if we could generate 1’s 
and 2’s randomly, we could call the 1’s heads and the 2’s tails 
and use the computer as some kind of electronic ‘coin’. If we 
could get it to produce whole numbers between one and six, we 
could use the computer as a six-sided die. 


Fortunately, there is a way to do this. Enter the next program 
and run it. Please note that there is a space between the quotes 
in line 10. 


1@ PRINT INT CRNOCI3X6)+15" “; 
28 GOTO 14 


When you run this program, you'll get a series of numbers 
(chosen at random between 1 and 6) like these: 


i 2 a a. Or 2 aS ae eh Fo @- 7 YF 
| re Ce CS Ce > ne i a i 3 eS ae 
ot 2 Soh oS oS a 2 2: 2 US CS 
a 2aso 8 6 6 SB 4 Sf 2S Ss & 1 


Even though we can create vast series of numbers between 1 
and 6 with a program like this to our heart’s content, it is not 
particularly interesting. And, if you ran the program over and 
over again, you might find that the sequence of numbers may 
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start to become a little familiar. The random numbers may stop 
looking so random. 


This is because the computer does not really generate random 
numbers, but only looks as if it is doing so. Inside its electronic 
head, the computer holds a long, long list of numbers, which it 
prints in order when asked for random numbers. The list is so 
long, it is almost impossible to see any pattern or repetition in 
it. However, this is fine for our purposes. 


LOWER THE TONE 


Up until now we have been working totally in upper case. So 
that you don’t think that’s all the Oric can do, put your finger 
on the CTRL key and at the same time press the T key. If you 
type in some letters now, you’!l find they will all be lower case. 
Unfortunately the Oric can’t think in lower case, try typing in 
something like list. You should get something on the screen 
which looks like this: 


? SYNTAX ERROR 


Not at all what you’d expect, you did type in a ‘legal’ 
command, didn’t you? The computer needs all commands to 
be entered in upper case, you can use lower case inside a string, 
but all commands have to be entered in upper case. 


FAST FOOD CRAZINESS 


Enter and run the next program, which makes an interesting 
use of the computer’s ability to generate random numbers. As 
you can see, it creates a scene where you have turned up at a fast 
food outlet, desperate for something to eat, and you’ve decided 
to let random number generator pick your food for you: 
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1@ REM FAST FOOD 

3@ A=INT CRNDC1)*4)t1 

480 PRINT "You’ve ordered...” 

50 IF A=] THEN PRINT"A hamburger" 

6@ IF A=2 THEN PRINT"“French Fries" 

7Q IF A=3 THEN PRINT"“Spare Ribs” 

8@ IF A=4 THEN PRINT"Hot Dogs with ketch 


up" 
38 PRINT 
19@ GOTO 32 


When you run this, you’ll get something like this list of food on 
the screen: 


You’ve ordered,., 
Spare Ribs 


You’?ve ordered,.. 
Hot Dogs with ketchup 


You’ve ordered,.. 
French Fries 


You’ve ordered,.. 
Spare Ribs 
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Notice how the program sets the letter A to the value of the 
random number in line 30. In this case, the letter A is standing 
fora number. It is called a variable, or, because it stands fora 
number (as opposed to standing for a word, or a String) it 1s 
called a numeric variable. In computer jargon, we say that, (in 
line 38), the computer has assigned the value of the random 
number to the variable A. And, as you can see in lines 58, 60, 70 
and 8@, the value assigned to A determines which food order 
you place. Read this over if it seems incomprehensible the first 
time. 


CHAPTER FIVE 
ROUND 
AND ROUND WE GO 





In this chapter we'll be introducing a very useful part of your 
programming vocabulary — FOR/NEXT loops. You’ll recall 
that we mentioned FOR/NEXT loops when demonstrating the 
use of CLS to clear the screen. There, a loop was used to adda 
delay after the word was printed on the screen before the screen 
was cleared. 


A FOR/NEXT loop is pretty simple. It has the form of two 
lines in the program, the first like this: 


FOR A=1] TO 22 
And the second as follows: 
NEXT A 


The control variable, the letter after FOR and after NEXT 
must be the same. 


AsaFOR/NEXT loop runs, the computer counts from the first 
number up to the second, as these two examples will show: 
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1Q FOR A=1 TO 22 
28 PRINT A; 


3@ NEAT A 
When you run it, this appears on the screen: 


12345678 3 1@ 31 12 13 14 15 16 
1 27 18 13 20 


Here’s another version: 


1@ FOR A=765 TO 781 
20 PRINT A; 
3@ NEXT A 


And this is the result of running it: 


765 766 767? 768 769 270 771 2772 773 774 
22D 776 277? 778 773 788 
73] 


STEPPING OUT 


In the two previous examples, the computer has counted up in 
one, but there is no reason why it should do so. The word 
STEP, can be used after the FOR part of the first line as 
follows: 


{@ FOR A=18 TO 10@ STEP 12a 
20 PRINT A;3 
38 NEXT A 


When you run this program, you’!l discover it counts (probably 
as you expected) in steps of 10, producing this result: 


18 28 38 48 5@ 66 7B 88 38 180 
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STEPPING DOWN 


The STEP does not have to be positive. Your computer is just 
as happy counting backwards, using a negative step size: 


18 FOR A=18@ TO @ STEP -15 
20 PRINT A; 
30 NEAT A 


This is what the program output looks like: 


108 85 7@ 55 4@ 25 18 


MAKING A NEST 


It is possible to place one or more FOR/NEXT loops within 
each other. This is called nesting loops. In the next example, the 
B loop is nested inside the A loop: 


18 FOR A=] TO 3 

26 FOR B=] 10 2 

56: PRINT Aa’ TIMES: “5B 3° TS: “8x6 
4Q0 NEXT B 

3@ NEXT A 


The nested programs produce this result: 
lL JIMES: 1. 2S: 1 


t TIRES: ZS. 2 
2 Fatlbs WS 'Z 
2 LENES: 22 aS: 4 
3 INES 1. 2S: 3 


3 Ties: 2 1S: 6 


You must be very careful to insure that the first loop started is 
the /ast loop finished. That is, if FOR A ... was the first loop 
you mentioned in the program, the last NEXT must be NEXT 
A. 
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Here’s what can happen if you get them out of order (the B loop 
ends after, rather than before, the A loop): 


12 
20 
32 
4Q 
50 


FOR A=] TO 3 
FOR B=] TO 2 


PRINT A;"TIMES "53B;"IS "jAXB 


NEXT A 
NEXT B 


tL TIMES. 1 
2 TAGES: J 
a J PES: 2 
PNEXT WITHOUT FOR ERROR IN 52 


MULTIPLICATION TABLES 


VS, a 
{Ss 2 
ES:.3 


You can use nested loops to get the computer to print out the 
multiplication tables, from one times one right up to twelve 
times twelve, like this: 
FOR A=] TO 

FOR B=] TO 12 


12 
20 
30 
40 
a) 2) 


PRINT A;"TIMES 


NEXT B 
NEXT A 


{2 


Here’s part of the output: 


4 


>A PD fH LH DP op 


TIES 
TIMES 
TIMES 
FEES 
TIMES 
TAMeS 
TEES 


LOCO NJ OO) ChB Gd) 


S65 1S 


Is 
IS 
IS 
LS 
is 
iS 
es 


cz 
16 
2 
24 
28 
OZ 
36 


 3AXB 
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4 TIMES 10 IS 4@ 
4 TIMES 11 IS 44 
q IIAES. 12. 2S 48 


There is no reason why both loops should be travelling in the 
same direction (that is, why both should be counting upwards), 
as this variation on the Times Table program demonstrates: 


19 FOR A=] 10 12 | 

20 FUR Bsi2 70 2 STEP =] 

38 PRINT A;"TIMES “3B5"°IS “ ;AXB 
4Q@ NEAT B 

2@ NEXT A 


Here’s part of the output of that program: 


TIMES 32 15-29 
Pies Ti iS. 22 
TIMES 1@ IS 2@ 
TIMES 3: 0S: 26 
pe itaes tse 16 
TIMES foc k4 
TIMES iS. AZ 
eS IS 12 
TIMES [3-3 
Tones TS. 6 


NO 


NM MN NM AN NN DN 
WDbUDN © 


CRACKING THE CODE 


It’s time for our first real program. In this program which uses 
several FOR/NEXT loops, CODEBREAKER, the computer > 
thinks of a four-digit number (like 5462) and you have eight 
guesses in which to work out what the code is. In this program, 
written by Adam Bennett and Tim Summers, you not only have 
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to work out the four numbers the computer has chosen, but 
also determine the order they are in. 


After each guess, the computer will tell you how near you are to 
the final solution. A ‘white’ is the right digit in the wrong place 
in the code, a ‘black’ is the right number in the right place. 
You'll see that you are aiming to get four blacks. When you 
have, you have cracked the code. Digits may be repeated within 
the four-number code. Enter the program, and play a few 
rounds against the computer. Then, return to the book for a 
discussion on it, which will highlight the role played by the 
FOR/NEXT loops. 


5 ELS 

1@ PRINT XXKXXKKKKKKKKKKKK KK KKK KKK KKK KKAKK 
KKKKKKK" 

Z2Q PRINT 

3@ PRINT"ODEBREAKER BY A. J.B, T.S. AND P 
Roe ee a 

4@ PRINT:PRINT 

5Q@ PRINT" XKXXKKKKKKKKKKKKKKKK KKK KK KKKKKK 
KKKKKKK' © 

7@ PRINT'When you are told to do so; ent 
er a" 

8@ PRINT" four-digit number and then prss 


38 PRINT"RETURN. © 

180 PRINT"Digits can be repeated,” 

110 PRINT"You have 8 goes to break the c 
coded" 

120. PRIN Sess] Se SS See ae ee eee 
140 WAIT 358 

i5@ CLS 


162 
178 
182 
192 
220 
212 
222 
232 
248 
250 
260 
278 
282 
290 
320 
312 
322 
332 
349 
350 
362 
370 
382 
332 
420 
410 
420 
432 
442 
450 
460 
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DIM BlC4) 

DIM D4) 

H= 

FOR A=] TO 4 

BCAJ=INT CRNDC1)*1@) 

NEXT A 

FOR C=1 TOC 8 

PRINT “Enter guess number "3C;3 
INPUT X:IF X>939999 THEN 242 
PRINT 


IF INTCX410@@@)=@ THEN PRINT "OQ" 


PRINT X35 

P=INT (X%71@@@0) 

Q=INT (CCX-]14@@@XP)7180) 
R=INT CCX-]1@8@xP~1@0x0)/719) 
S=(X- | @@BxP- 1GOXQ-1GxXR) 
OC1)J=P 

D(2)=Q 

D(3J=R 

DC4jJ=S 

FOR £=1] TO 4 

IF DCEJ<>BTE) THEN 429 
PRINT " BLACK" ; 
BCEJ=BCEJ+19 
DCEJ=DCEJ+26 

H=Ht ] 

NEAT E 

IF H=4 THEN 632 

FOR F=1 TO 4 

D=DCF ) 

FOR G=] TO 4 


wad 


31 
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4706 IF D<>BC(G) THEN 31@ 

48@ PRINT “ WHITE"; 

49@ B(GJ=B(G)119 

568 GOTO 5282 

51@ NEXT G 

9206 NEXT F 

536 FOR G=1 TO 4 

54@ IF BCGJ<19@ THEN 562 

3950 B(GJ=B(G)-10 

966 NEXT G 

57@ H=@ 

S8@ PRINT 

99@ NEXT C 

6@@ PRINT:PRINT:PRINT"You didn’t get it. 
61Q@ PRINT:PRINT"The answer was "3BC1)5BC 
2)3B03) 58043 

620 END 

638 PRINT:PRINT:PRINT"Well done, Codebre 
aker,"' 

648 PRINT:?PRINT”’ You got the answer in Ju 
st "3C3;"90es" 


Here’s what the screen looks like after one round: 
Enter guess number 7? 

3385 BLACK BLACK WHITE 

Enter guess number 8 

9357 BLACK BLACK BLACK BLACK 


Well done, Codebreaker, 
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You got the answer in just 8 goes 


We’ll now go through the program line by line, a practice we’ll 
be following for several of the programs in this book. If you 
don’t want to read the detailed explanation now (and there may 
be parts of it which area little bit difficult to understand at your 
present stage), by all means skip over the explanation and then 
come back to it later when you know a little more. 


Lines 16 and 5@ print a number of asterisks to rule off the title, 
with blank lines printed by lines 20 and 49. 


Line 148 pauses for a few seconds to allow you to read the 
instructions. Two arrays are dimensioned in lines 160 and 170. 
We get to arrays in a later chapter. For now, all you need to 
know is that by saying DIM B(4) you tell the computer you want 
to create a list of objects, called B, in which the first item can be 
referred to as B(1), the second as B(2), and so on. These two 
arrays are used for storing the numbers picked up by the 
computer, and for your guess. 


H is a numeric variable (we’ve mentioned numeric variables 
before) which is set equal to zero in this line. In line 419, one is 
added to the value of H each time a black is found, so that if H 
equals four, the computer knows all the digits have been 
guessed and goes to the routine form line 639 to print up the 
congratulations. 


The lines from 199 to 218 work out the number which you will 
have to try and guess. Line 20@ »ses the RND function we’ve 
talked about to get four random numbers between zero and 
nine, and stores one each in the elements of the B array. Note 
that the first FOR/NEXT loop of our program appears here. 
The A in line 198 equals one the first time the loop is passed 
through, two the second time, and so on, so that the A in line 
200 changes as well. 
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Our next FOR/NEXT loop, which uses C, starts in the next 
line. It counts from one to eight, to give you eight guesses. Line 
230 accepts your guess, using the words ‘Enter guess number 1’ 
as an input prompt. The numeric variable X is et equal to your 
guess, and line 249 checks to make sure you have not entered a 
five-digit number. If you have (if X is greater than 9999) then 
the program goes back to line 238 to accept another guess. 


The next section of the program, right through to line 58, 
works out how well you have done, using a number of 
FOR/NEXT loops (368 to 420, 446 to 520, 468 to 518 and 53@ 
to 568). Line 599 sends the program back to the line after the 
original FOR C=... to go through the loop again. If the C 
loop has been run through eight times, then the program does 
not go back to line 230, but ‘falls through’ line 596 to tell you 
that you have not guessed the code in the eight guesses you were 
given, and to tell you what it is. Line 618 prints out the code. 


If you do manage to guess the correct code, so that H equals 
four in line 43@, then the program jumps to line 639 to print out 
the congratulatory message. 


PACKING ’EM IN 


You can save quite a lot of space in the program (although it 
doesn’t always make easier to work out what is going on within 
the program, or pick up errors) by using multi-statement lines. 
With a multi-statement line, you put more than one statement 
to each line number. Each statement on the same line must be 
separated by a colon (:). 


Here is a slightly condensed version of CODEBREAKER 
produced by using multi-statement lines. Compare the two 
listings, and see how a little bit of space can be saved with 
multi-statement lines. Do NOT put a second statement in a line 
after the word IF (such as line 43@ in the original listing). The 
reason for this will be outlined in the next chapter. 
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1@ CLS:PRINT "XXKKKKKKKXKKKKKKKKKKKKKKKKK 

KKKXXKKXKKKKK" 

20 PRINT:PRINT"CODEBREAKER BY A.J.B, T.S 
AND P.J.S. “:sPRINT 

38 PRINT NOC OOK 

KKXXKKKK" 

4@ PRINT "When you are told to do so, en 

ter a" 

9@ PRINT “four-digit number and then pre 

ss" 

6@ PRINT"RETURN. " 

7@ PRINT"Digits can be repeated," 

8Q@ PRINT"You have 8 goes to break the co 

deg" 

90 PRINT" -- rere rr rrr rrr 

198 WAIT 35@:CLS:DIMN B(4):OIMN D4) :H=e@ 

11@ FOR A=] TO 4:BCAJ=INT CRNOC13%1@):NE 

xT A | 

12@ FOR C=1 TO 8:PRINT “Enter guess numb 

er "3C; 

13@ INPUT X:IF X>3999 THEN 138 

14@ PRINT: IF INTCX47180@)=@ THEN PRINT'@" 

15@ PRINTX3:P=INTCX710@@) :-Q=INTCCX-1600x 

P7100) 

16@ R=INTCCX-10@@xP-18@kO)710) :S=(X- 1888 

xXP-1G0XQ-1@8XR} 

178 DC1J=P:002)=Q:0033=R:D04)=5 

18@ FOR E=1 TO 4:IF DOCE)<>BCE) THEN 280 

198 PRINT” BLACK"; :BCEJ=BCEJ+1@:DCEJ=DCE 
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}+2@0:H=Ht] 

208 NEXT E:IF H=4 THEN 322 

210 FOR FH] TO 4:D=DCF) 

226 FOR G=1] TO 4:IF O<>BCG) THEN 246 

230 PRINT" WHITE" ;:BCG)J=B(GIJ+10-:GOTO 258 
240 NEXT G | 

298 NEXT F 

266 FOR G=!1 TO 4:IF BC(GJ<1@ THEN 288 
278 BCGJ=BCGI-12 

280 NEXT G:H=@:PRINT:NEXT C:PRINT 

298 PRINT:PRINT"“ You didn’t get it...” 
388 PRINT:PRINT"The answer was ";BC1);BC 
2)3;B03) 5804) 

318 END 

32@ PRINT-*PRINT:PRINT"Well done, Codebre 


akert,! 


330 PRINT-:PRINT" You got the answer in jy 
st Mag Goes: 


CHAPTER SIX 
CHANGING IN 
MID-STREAM 


We pointed out earlier in the book that, in most cases the 
computer follows through a program in line order, starting at 
the lowest line number and following through in order until the 
program reached the fullline. _ 


This is not always true. The GOTO command sends action 
through a program in which ever order you decide. 


Enter the following program, and before you run it, see if you 
can work out what will appear on the screen: 


2 TRON 

1@ GOTO 46 

20 PRINT This 25-20" 

328 GOTO 62 

4@ PRINT" THIS IS 48" 
58 GOTO 26 

6@ PRINT" THis. 1S 62" 
78 GOTO 42 


This rather pointless program sends the poor computer 
jumping all over the place, changing Its position in the program 
every time it comes to a GOTO command. Here’s what you 
should see on your screen: 
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[7@](48] THIS IS 42 
[S@]IL2Z@]THIS IS 22 
[3@](6@) THIS IS 6@ 
[7@1(£4@] THIS IS 4@ 
([SQ@JLZQITHIS IS 22a 
[3@j)(6@] THIS IS 62 
[7@1(4@i] THIS IS 4@ 
[S@]L2Q]THIS IS 22 
[381168] THIS IS 6@ 
[7Q@R(48}] THIS IS 48 
[S@IC2@ITHIS IS 28 © 
[3Q@](60] . THIS IS 62 
[701148] THIS IS 4@ 
[S@]J{[2@}]THIS IS 2a 


Look at line 5; 


3 TRON 


Now you may wonder what that’s doing there, well it stands for 
TRace ON, that is the number printed in the square brackets is 
equal to the current line number. To switch it off you use 
TROFF. When you get round to writing your own programs, 
the TRON command may come in very useful when you’re not 
sure what the computer ts doing. The TRON instruction allows 
you to trace the line number. 


When the computer reaches line 10 it finds a GOTO command 
and moves onto line 40. At line 4@ the computer prints some 
information and then comes to another GOTO command in 
line 5G. From here it goes to 20, prints and then goes to 60. The 
Computer is then sent back to line 49 and the circle is complete. 
It is highly unlikely that you will ever use a program that is that 
short with so many jumps to any advantage. 
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RESTRICTIVE PRACTICES 


Using GOTO In this way is called unconditional. The 
command is not qualified in any way, so the computer always 
obeys it. Another pair of words generally found together in a 
program are IF and THEN. IF something is true, THEN do 
something. The next program, which ‘rolls a die’ (using the 
random number generator) and then prints up the result of that 
die roll as a word, uses a number of IF/ THEN lines: 


1@ REM DICE ROLLS 

26 GOTO 182 

386 PRINT"ONE" =-GOTO 108 
4@ PRINT"TWO" -GOTO 188 
0@ PRINT" THREE" -GOTO 18@ 
66 PRINT"FOUR" :GOTO 10d 
7@ PRINT"FIVE":GOTO 180 — 
8@ PRINT"SIX" | 
100 A=INTCRNDC1I*6)+1 
11@ IF A=] THEN GOTO 3@ 


120 IF A=2 THEN GOTO 48 
130 IF A=3 THEN GOTO 5@ 
14@ IF A=4 THEN GOTO 62 
150 IF A=5 THEN GOTO 7@ 
160 JF A=6 THEN GOTO 8@ 
This its what you’ll see when you run this program: 
SIX 

FIVE 

TWO 

FOUR 

THREE 

TWO 


ONE 
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ONE 
FOUR 
FIVE 


So we’ve looked at unconditional, and conditional GOTOs to 
send action all about the place within a program. 


There is another way to redirect the computer during the course 
of a program by the use of subroutines. A subroutine is part of 
a program which can be called any number of times during a 
program, and is more efficiently kept outside the main 
program, than within it. 


This example should make it clear. In this, the computer throws 
a die over and over again. The first time it is thrown the 
computer is throwing it for you. The second time it is thrown it 
is throwing the die for itself. After each pair of throws the 
computer will announce the winner (highest number wins). The 
main part of this program, that we want you to grasp the idea of, 
is the subroutine used:to throw the die, this is done by first 
telling the computer to GOSUB, (GO to SUBroutine), and at 
the end of the subroutine there is a RETURN statement which 
tells the computer to go back to where it came from in the main 
program and carry on with the next command after the 
GOSUB. Enter and run the program, then return to the book 
and we’ll explain where the subroutine is within the program, 
and how it works: 


1@ WAIT 5@ | 
2@ FOR C=1 TO 2 

3@ GOSUB 12@ 

4@ IF C=1 THEN A=D 

5@ IF C=2 THEN B=D 

6@ NEXT C 

7@ IF A>B THEN PRINT"! WIN" ELSE PRINT"Y 
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OU WIN" 
82 GOTO 12 
120 REM THIS IS THE SUBROUTINE 
11Q@ D=INTCRND(1)X6)+1 
12@ IF C=1 THEN PRINT"I ROLLED A "3D;" " 
ELSE PRINT “YOU ROLLED A " sp 
138 WAIT 32 


14@ RETURN 
This is what you’ll see when you run it: 


T ROLLED A 4 
YOU ROLLED A 3 
I WIN 

L RGLEED “h-S 
YOU ROLLED A 1 
1 WIN 

J] ROLLED A 
YOU ROLLED 
YOU WIN 


D> +A 
On 


In line 19 you’ll notice a new instruction, WAIT. Inthe flashing 
TESTING program earlier in the book we used a FOR/NEXT 
loop to create a small pause, fortunately Oric BASIC allows 
you to have the small pause without the need to use 
-FOR/NEXT loops, this instruction is the WAIT statement. 
The number following the WAIT statement obviously 
determines how long the pause will last, experiment with 
WAIT. | 


Line 20 contains the ominous FOR command, in this case it is 
used to determine whether it’s the computer’s throw or yours. 


When it gets to line 30, which it does (of course) once each time 
through the C loop, the program is sent to the subroutine 
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starting at line 100. The die is ‘rolled’ in line 110, and the 
numeric variable D is set equal to the result. 


In the next line we introduce a new twist to the usual 
IF. . THEN statement, from here on in you will have to refer to 
IF..THEN statements as IF.. THEN. .ELSE, this is because 
you can, with Oric BASIC, use acommand called ELSE, which 
will carry out the instructions following the ELSE command if 
the expression following the IF statement is false, i.e. the 
‘command: 


IF 1=2 THEN PRINT ‘‘1 =2’’ ELSE PRINT “‘1 does not. 
equal 2’’ will obviously print ‘‘1 does not equal 2’’ because the 
expression ‘1 = 2’ is false, so the instructions after the ELSE 
command are followed. | 


There is another WAIT statement following the IF.. 
THEN. .ELSE command which provides a short pause for you 
to read the information on the screen. 


In the final line of the subroutine there is the RETURN 
command, which, as we explained before, returns the action to 
the main program, i.e. line 48. There, the IF/ THENs in lines 49 
and 5@ determine whether the value of the roll (D) should be 
assigned to the variable A or B. 


Line 60 ends the FOR/NEXT loop, and then line 79 determines 
whether you or the computer has won, using the ELSE 
command within the IF..THEN..ELSE. From here the 
computer GOTOs line 16 and the program starts again. 


Study this example until you’re sure you know how subroutines 
work, because they’re pretty useful things in nearly every 
program. 


CHAPTER SIX 43 
LET’S ROLL AGAIN 


There is a very efficient way of shortening the previous die 
rolling program using the command ON. .GOSUB, (there is 
also a command ON.. GOTO which works in a similar way), 
to see the effect of ON. .GOSUB type in the following program 
and run it: | 


10 REM DICE ROLLER 

26 D=INT CRNDC1I*65)+] 

32 ON D GOSUB 5@,68,78,80,390, 188 

4@ GOTO 2@ 

98 PRINT"“ONE" -RE TURN 

606 PRINT" TWO" :RE TURN 

7B PRINT" THREE” =RETURN 

62 PRINT“FOUR" -RETURN 

SQ PRINT"FIVE" -RETURN 

188 PRINT"SIX*" :RETURN | | 

As you can see, the effect of ON..GOSUB, or ON.. GOTO 
for that matter, is that the computer goes to the subroutine Nth 
in the list in the expression ON N GOSUB A,B,C etc., 1.e. if 


N =3 and C = 160 then the computer will go to the subroutine at 
line 100. 


CHAPTER SEVEN 
SOUNDING OUT 


The Oric 1 microcomputer is supplied with a very useful set of 
sound commands which will enhance your programs no end. 


The four most noticeable commands available are the 
predefined sound commands EXPLODE, PING, SHOOT and 
ZAP. These are extremely useful if envelopes, tone and noise 
and waveforms have you baffled. To see what each sounds like, 
type in the following program and run it: 

1@ REM SOUND DEMO 1] 

20 CLS 

38 PRINT"EXPLODE" 

4Q@ EXPLODE:WAIT 198 

D0. GS 

680 PRINT’ PING” 

27Q@ PING:WAIT 52 

82 CLS 

3@-PRINT SHOOT” 

180 SHOOT :WAIT 52 

Li@ CLs 

120 PRINT" ZAP" 

138 2AP:WAIT 32 

148 GOTO 26 
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Now, armed with these four new commands, you can liberally 
spread them throughout the programs and program fragments 
we showed you earlier in this book. 


SELF COMPOSURE 


If you decide that you want a little more than just explosions, 
etc., then you can create your own sounds using the commands 
MUSIC, SOUND and PLAY. 


MUSIC 


The music command offers pure notes, so therefore is aimed at 
the musicians amongst you. The correct syntax for MUSIC is; 


MUSIC (Channel, Octave, Note, Volume) 


Where Channel is 1, 2 or 3 tone channels Octave — 9 to 6, 9 
being the lowest and Note: 


loi tb ei 
tT] 


— pt me 10 CO ~~] CON 


No w= & 


SOUND 


Sound is a command more useful when you want to create 
effects, i.e. wind or rain. The correct syntax for SOUND is; 


SOUND (Channel, Period, Volume) 


Channel: 1, 2 or 3 tone channels 
4, 5 or 6 noise channels 
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PERIOD: Sound length 


VOLUME: @—15 if @ is used, as with MUSIC command, 
control is taken by the envelope. 


PLAY 


Play is the most useful of all the sound commands when it 
comes to creating synthesised effects. Its parameters are: 


PLAY (Tone enable, Noise enable, Envelope Mode, Period) 


Tone enable: @ No tone channels on 
1 Channel I on 
2 Channel 2 on 
3 Channels 1 and 2 on 
4 Channel 3 on 
5 Channels 3 and I on 
6 Channels 3 and 2 on 
7 Channels 3, 2 and 1 on 


Noise enable: as above, only for noise channels 


Envelope mode: 1 Single decay. 
2 Single rise, then silent. 
3 continuous sawtooth, starting from a peak 
4 continuous rise and fall, starting low. 
5 curved rise with continuous high tone. 
6 continuous rising sawtooth. 
7 straight rise to continuous high tone. 


PERIOD: 9 to 32767 


Try the following program which uses all of Oric’s sound 
facilities to show you their possibilities. 
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1@ REM SOUND DEMO 2 
28 PRINT CHR$(6):CLS 

3@ PRINT"“BOMBS AWAY" 

4@ FOR A=6 TO @ STEP -1 

5@ :FOR B=12 TO 1 STEP -1 

6@ : MUSIC 1,A,B,15 

7@ :NEXT B 

8@ NEXT A 

9@ EXPLODE :WAIT 188 

198 CLS 

110 PRINT"HELICOPTERS" 

120 :PLAY @,2,;3,1 

1328 WAIT 20a 

14@ CLS:PRINT" INUADERS" 

15@ FOR A=1 TO 5 

160 :WAIT INTCRNDC1)*30)+2@ 

170 :2AP 

18@ NEXT A 

196 CLS:PRINT"MUSIC" 

208 RESTORE 

218 FOR A=1 TO 23 

238 :?READ N;P 

246 :MUSIC 1,2,N,@2 

250 :PLAY 1,8,2,1@@:WAIT 2:PLAY 1,@,1,38 
ae : 

268 :WAIT Px3@:IF A>15 THEN WAIT 18 
270 :PLAY @,28,8,@ 

288 NEXT A 

298 DATA 18,3,18,3,8,.5,10,.5,12,4 
328 DATA 8,.5;,10,.5,12,4,1@,.5,8,.5 
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O10 DATA. 10>.99-3 5 «59.7 + 95.79.95: 0% Oa D995 
320: DATA 55.33 Sy 25-05: 335 393947940 1 DEZ 
39 

330 PING:WAIT S@:EXPLODE 

34@ WAIT 1@@:CLS 

35@ PRINT"'GUNF IGHT" 

360 FOR A=] 70 5S 

37@ :WAIT INT CRNDC1)x3@)+22 

388 :SHOOT 

SSG NEXT. A 

4@@ SOUND 1,1,1 

410 PLAY @,9,9,9 


THE DESCRIPTION 


Line 10 holds that famous REM statement which is here 
holding the name of the program SOUND DEMO 2. In line 20 
the effect of PRINTing CHR$(6) is to switch off the keyboard 
click, which would otherwise effect the RUNning of this 
program. Line 3@ gives us aclue as to what sort of effect we are 
trying to get in lines 49—99, listen to the noise and refer to the 
program listing, can you see what the computer is doing? From 
line 119 to line 138 you will find the routine which tries to 
recreate the sound of a helicopter by quickly switching on and 
off the noise channel via the envelope. The YNVADERS sounds 
are simply ZAP commands at random intervals. From line 198 
to line 328 you will see the MUSIC routine, which uses a few 
commands we haven’t covered yet, but we'll get round toit. All 
you need to know now is that DATA holds the note values and 
lengths, RESTORE makes sure that the computer will look at 
the information from line 298 onwards and the READ 
command takes the information out of the DATA statements. 
The result is atune, although not everybody’s favourite, is a bit 
more complicated than ZAP. GUNFIGHT from line 358 is 
similar to INVADERS but uses the SHOOT command. In line 
410 switches off any sounds that your Oric might still be 
making. 
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SOUND ADVICE 


As you will have noticed in the Sound Demo 2 program, you 
can use variables within the sound commands SOUND, 
MUSIC and PLAY. In the next program, SOUND ADVICE, 
you have to guess the number between 1 and 12. The feedback 
on each guess — which will help you home in on the correct 
number in the shortest possible number of guesses — is in the 
form of MUSIC. Once you’ ve played it for a few rounds, you’ll 
learn to interpret the output from the computer. 


When you manage to guess the correct answer, you’ll get this 
on the screen: 


Yes; it was 1] 
You got it in 3 guesses 


Here’s the listing: 


1@ REN SOUND ADVICE 

22 R=INT CRNDCIIJXI2Z)+1 

38 PAPER 1:INK 7:CLS 

4@ GUESS=1 

5@ PLOT1@,9,"THIS IS GUESS #"+STRS$CGUESS 
pa " 

6@ FOR A=1 TO 2@:PRINT:NEXT: INPUT "What 
number am | thinking of" ;A: 

CLS 

88 IF A=R THEN 1380 

98 PLOT 4,5,"No, your guess is not corre 
oe a 

180 MUSIC 1,3,R,15:WAIT SO@:PLAY @6,0,0,0: 
CLS 

118 GUESS=GUESS+] 
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12@ GOTO 52 


130 CLS:PRINT:PRINT:PRINT"Yes, it was “"; 
R 


148 PRINT:PRINT:PRINT"You got it in “3;GU 


FSS3;" guesses" 


First of all is the REM statement telling us the name of the 
program. The next line generates a random number between 1 
and 12, and sets the numeric variable R to it. In line 30, the 
computer sets the background (PAPER), tored, and the colour 
in which it prints (INK), to white. Both PAPER & INK are 
automatically established, this will be explained in the colour 
chapter of this book. 


Line 49 sets the numeric variable GUESS to one, and in line 58 
the number is PLOTed onto the screen. Using PLOT you can 
specify where you want the information on the screen, 1.e. 
PLOT 6,6,‘‘TOP CORNER’. 


PLOTs the string ‘‘TOP CORNER’’ in the top left-hand 
corner of the screen. If you were to say PLOT 
12,12,““CENTER’”’ then the computer would print the string 
‘“‘CENTER’’ in the middle of the screen. Line 69 accepts your 
guess, as variable A. If A (the number you’ve guessed) is the 
same as R) the number the computer thought of in line 29), as 
the computer checks in line 88, then the computer knows you 
have guessed its number. 


If you are not right then line 9@ tells you so, and the following 
line (188) gives you your audio feedback, the pitch will give you 
the clue as to what it is. The variable GUESS is incremented by 
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one (that is, one is added to the value of the variable GUESS) 
before the computer returns to line 58 to accept your next 
guess. 


If you have guessed the number correctly (detected in line 88) 
the program moves to line 130. The screen is cleared and the 
computer tells you the number it was thinking of, and then (in 
line 140) tells you how many guesses you took. 
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126 GOTO 5e 
136 CLS:?PRINT:PRINT:PRINT"Yes, it was "3 
R 


148 PRINT:PRINT:PRINT"You got it in "3;GU 
ESS ;" guesses" 


First of all is the REM statement telling us the name of the 
program. The next line generates a random number between 1 - 
and 12, and sets the numeric variable R to it. In line 30, the 
computer sets the background (PAPER), to red, and the colour 
in which it prints (INK), to white. Both PAPER & INK are 
automatically established, this will be explained in the colour 
chapter of this book. 


Line 4@ sets the numeric variable GUESS to one, and in line 58 
the number is PLOTed onto the screen. Using PLOT you can 
specify where you want the information on the screen, 1.e. 
PLOT @,8,‘‘TOP CORNER’’. 


PLOTs the string ‘‘TOP CORNER’’ in the top left-hand 
corner of the screen. If you were to say PLOT 
12,12,““CENTER’”’ then the computer would print the string 
‘““CENTER’”’ in the middle of the screen. Line 68 accepts your 
guess, as variable A. If A (the number you’ve guessed) is the 
same as R) the number the computer thought of in line 29), as 
the computer checks in line 88, then the computer knows you 
have guessed its number. 


If you are not right then line 96 tells you so, and the following 
line (10) gives you your audio feedback, the pitch will give you 
the clue as to what it is. The variable GUESS is incremented by 
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one (that is, one is added to the value of the variable GUESS) 
before the computer returns to line 58 to accept your next 
guess. 


If you have guessed the number correctly (detected in line 8@) 
the program moves to line 130. The screen is cleared and the 
computer tells you the number it was thinking of, and then (in 
line 148) tells you how many guesses you took. 


CHAPTER EIGHT 
MAKING 
COMPARISONS 


We all know the equals sign (=) and we’ve seen it in use in 
several programs so far. We’ve also seen the greater than (> ) 
and less than (<) signs. At this point of your learning, we 
thought it would be useful to briefly recap on what each of these 
signs are, and what they mean: 


= equals 
> greater than 
< less than 


> = greater than or equal to 
< = less than or equal to 
<> not equal to 


You’ll see these in use in many programs in this book, such as 
this next one, which allows you to challenge the computer to a 
game of BRICKUP, written by Graham Charlton. 


Here’s the listing for BRICKUP: 

1@ REM BRICKUP 

22 REM From a program written by 

38 REM Graham Charlton 

4@ GOSUB 82aa 

08 T=18-SC=0 

6@ PLOT 1,;@,"LIVES LEFT “tSTR$CTJ:PLOT 1 
9,8,"SCORE “+STR$(SC) 
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PO C=] :D=] >X=23:Y=INTCRNOC13*10)+29 :N=Y- 
2 

8@ JFSCRNCY, XJ=ASCC"X"3JTHENC=-C -SC=SCtI1: 
SOUND],5@,15:PLOT 25,8,STR$ 

cso ye © 

38 IF X>24¢ THEN 1868 

1@6@ PLOT Y;X,;"0O" 

11@ PLOT ™,;24;," [==] " 

120 IF KEY$="P" THEN M=MN+1 

121 WAIT S:PLAY @0,8,0,@ 

122 JF KEY$"E" THEN M=M"-1 

130 IF *+C<3 THEN C=-C:SOUND 1,50,15 

14@ JF xX=24 AND Y=M AND Y<=NtS THEN C=- 
C:SOUND 1,4@,15 

15@ IF YtD<2 OR Y+D>35 THEN D=-D:SOUND ] 
360,15 

16@ PLOT Y,;x," " 

176 X=K+C:Y=YtD 

i186 GOTO 8@ 

1090 T=T-1]:C=-C:MNUSIC1,9,2, 1IS:WAITS@:-MUS 
1€1,0,1,15:WAIT 1@B:PLAY @, 

8,0, 

1810 PLOT 1,90,"LIVES LEFT "“+STR$CTJ+t" "> 
PLOT 193,0,"SCORE "“+tSTRS#CSC) 

1928 PLOT NM, 24," " 

1838 IF T>@ THEN 72 

1048 EXPLODE :CLS:END 

8Q@@ CLS:PAPER 4:INK 7 

8018 PRINT:FOR A=1 TO 36:PINT CHRS$(126); 


*>NEXT 
8820 FOR A=2 TO 25:PLOT 1,A,CHRS$C126)=:PL 
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OT 36;A;CHR$C126):NEXT A 
8B32 PLOT 255, "XXXXXXXXXXXXAAKARRXKARAKARAKA 


ARAKKAAKAKA 
8Q4B PLOT 2,6, "XXXXXXXXXXKXXKXAARAARAAKAKA 


KKK KK ARM | 
BQ5Q PLOT 2,7; "XXXXXXXXXXXKXAAKAXAXAAKAARARAKA 


XKXKKKKKK 
BQEQ PLOT 2,83 "XXXXXXXXXXXXXXXXXRXXXXXKX 


XKXKKKKKM " 
8Q7Q PRINTCHR$(17)3 
8288 RETURN 


In BRICKBAT, you use the P and E keys to move the little slide 
at the bottom of the screen back and forth, bouncing the ball 
off it (if you can). As the ball bounces up to the X’s above, it 
will strike them, making a sound and adding to your score. You 
have ten balls per round. It is fascinating to see what happens if 
the ball gets momentarily ‘trapped’ inside the bricks, bouncing 
off them wildly, before it finds a way out and down. You'll see 
how effective this can be when you run the program. The only 
limitation of this program is the way the Oric reads the 
keyboard, causing slow reactions to your commands. 


Notice that our ‘comparison symbols’ (less than, and the rest) 
are used frequently in this program. They perform a number of 
tests in conjunction with IF/THEN statements, bouncing the 
ball off the slide at the bottom of the screen, the walls or the 
bricks, deciding when the ball has missed the slide, and 
continuing the game if you still have a ‘life’ (that is, ball) left. 
The program ends in line 1049 with an explosion. 


The words AND and OR are also used in comparison lines, 
chaining two or more tests together, as in lines 148 and 150. 
They work as follows: 


AND 


OR 
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The computer does what follows the THEN if both 
of the conditions chained by the AND are true 
The computer carries out the instruction following 
the THEN if either of the conditions are true. 


CHAPTER NINE 
A GAME AND A SPEED 
TEST 


It’s time now to take a break from the serious business of 
learning to program the computer. As you can see in this 
chapter, we have a couple of major programs, which use many 
commands that have not yet been explained. We suggest you 
enter the programs just as they are, play them for your own 
enjoyment, then come back to the explanations which follow 
the listings after you have mastered the rest of the book. We do 
not think it is fair to keep you waiting for major programs until 
you’ve covered everything on the computer, so we have decided 
to supply you with these programs at this point, and hope you’ll 
enter them ‘on trust’, returning to this chapter for the 
explanations when you feel you are ready. Of course, you do 
not have to enter the programs right now. If you’d prefer to 
continue with the learning, then move straight along to chapter 
ten. 


PLAYING ALONE 


Our first listing allows you to use your computer as a Solitaire 
board. It is believed that Solitaire was invented by an 
imprisoned nobleman in France in the late 16th century, and 
was brought into England in the closing decade of the 18th 
century. 


The aim of the game is simple to explain, but not so easy to 
achieve. You start on a board which has 33 positions marked. 
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There are ‘pegs’ in 32 of the positions on a real board, and 
the middle position is empty. 


The ‘blocks’ represent the pegs, and the white mark in the 
center is the empty square. To play, you simply jump over 
any of your pieces vertically or horizontally, so that you 
end up in an empty position. The piece which you have 
jumped over is removed from the board. The aim of the 
game is to end up with just one block in the center 
position. 


The board is displayed each move, and also the number of 
pegs, (blocks), left on the screen. You move by entering the 
co-ordinates of the piece you want to move, using the 
number down the side first, followed by the number across 
the top. These are entered as a single, double-digit number. 
If you wanted to move the piece which was two positions 
below the central hole, you’d enter 64, then press 
RETURN, followed by 44, and RETURN again. The board 
is reprinted, and you are then offered another move. 


This is the listing of the Solitaire program: 


18 REN SOLITAIRE 

20 GOSUB 260 

4@ REM ACCEPT NOVE 

45 CLS:GOSUB 198 

980 INPUT “Which peg do you wish to move" 
sAS 

6@ MUSIC 1,1,1,15:WAIT S:PLAY 8,8,9,@ 

7/@ LET A1=VALCLEFT#CA$, 13) :AZ=VAL CRIGHTS 
CAS, 13) 

22 IF ACAI; AZ) <>MAN THEN GOTO 5@ 

8@ INPUT "to where" 3;B$ 

98 MUSIC 1,1,;1,15:WAIT S:PLAY 8,0,0,@ 

33 LET B1=VACLEFT#(B$, 13) >-B2=VAL CRIGHTSC 
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B$,1)) 

35 IF ACB1,B2)<>EMPTY THEN 82 

1@@ IF ABSCA1-B1)>2 OR ABS(A2-B2}>2 THEN 
45 

1@1 IF ABSCAI-B1)=1 OR ABS(AZ-B2)=1 THEN 
45 

122 IF ABS(A1-B1)=@ AND ABS(A2-B2)=@ THE 

N 45 

123 IF ABSCA1-B1)=2 AND ABS(A2-B2)=2 THE 

N 45 

11@ MOVE=MOVE+1 :COUNT=2 

115 ACA1,A2)=EMPTY :ACB1,B2)=MAN 

116 ACCAI+B1)72, CA2+B2)723=EMPTY 

12@ FOR Li=1 TO 7 

125 FOR L2=1 TO ? 

138 IF ACL1,L2)=MAN THEN COUNT=COUNTt! 

135 NEXT L2 

14@ NEXT L} 

16@ IFCOUNT=1ANDAC4, 4)=MANTHENPRINT" YOU 

DID IT IN "MOVE :END | 

17@ PLOT1,8, "THERE ARE "+tSTR$CCOUNT)+"PE 

GS ON THE BOARD” 

188 GOTO 42 

19@ PLOT 16,5,"1234567":PLOT 16,6, "1iiti 


298 FOR LOOP=-? TO -1:PLOT 24,6+ABSCLOOP 
J}, STR$(LOOP) :NEXT LOOP 

21@ FOR Ll=] TO 7:FOR L2=1 To 7 

228 PLOT 15+L2,6+L1,CHR$(AC(L1,L2}) 

230 NEXT L2:NEXT Ll] 

24Q PLOT 17;7;16:PLOT 17,;8,16:PLOT 15,9; 
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16:PLOT 15,18,16 
24] PLOT 17,14,16:PLOT 21,14,2@ 

945 PLOT 21,7;2@:PLOT 21,8, 20:PLOT 23,9; 
28:PLOT 23,18,20 

246 PLOT23,11,20:PLOT 23,12,26:PLOT 21,31 
3,20 

259 PLOT 15,11,16:PLOT 15,12,16:PLOT 17, 
13, 16:RETURN 

26@ PAPER 4:INK7:CLS:DIM AC7,7) 

2/70 BLANK=32 :-MAN=33 -EMPT Y=34 

286 FOR Ll=] TO 2:FOR L2=1 TO 7 

298 READ ACL1,L2):NEXT L2,L1 

300 FOR L1=46088+(MANK8) TO 46080+(34%8) 
+7 

31@ READ USER:POKE L1,USER:NEXT 

328 RETURN 

332 DATA 32, 32,33; 33,33, 325 32 

348 DATA 32,32, 33, 33, 33; 32, 32 

356 DATA 333 335 33333; 333.33); 33 

368 DATA 33; 33, 33, 34,33, 33,33 

378 DATA 33,33, 33; 33, 33, 33, 33 

382 PATA 32, 32, 33, 33, 33, 32, 32 

338 DATA 32, 32, 33, 33, 33, 32, 32 

4@@ DATA 7,13,21,21,23, 26,28, 

4085 DATA @,@, 28, 28, 28, 28, 28,8 


The program works as follows. Line 28 sends the action to the 
subroutine from line 269 which sets up the requirements for the 
start of the game. The PAPER is set to blue and the INK is set to 
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white. The array A is used to hold the board, as you can see, it 
has been dimensioned as A(7,7), this means that there are seven 
pigeonholes, with seven more sub-pigeonholes in each. More 
variables are initialised and then the pattern of the Solitaire 
board is read into AQ. The FOR/NEXT loop which starts at 
306 creates what’s known as USER-DEFINABLE 
GRAPHICS, these will be covered in detail in Chapter 12. 


When the computer RETURNs from line 329, it is immediately 
sent on another subroutine, this time starting at line 190. This 
subroutine prints the board, firstly the grid numbers, then the 
pegs and spaces and finally the colour is added using 
low-resolution PLOT, (see Chapter 14). 


In line 7@ the functions LEFT$ & RIGHTS$ are used to split up 
the input A$. Using VAL we can turn a string variable into a 
numeric variable. Most of the rest of the program is basic 
maths to check if you have made an invalid move, etc. 


TESTING YOUR SPEED 


Our next program, REACTION TESTER, is much shorter 
than Solitaire, but just as much fun to play. You enter the 
program, type RUN, and the message ‘STAND BY’ appears. 
After an agonizing wait, STAND BY will vanish, to be replaced 
by a notice ‘SOK, PRESS THE ‘Z’ KEY’’. As fast as you can, 
leap for the Z key, and press it, knowing that the computer Is 
counting all the time. 


The computer then tells you how quickly you reacted, and 
compares this with your previous best time. ‘‘BEST SO FAR 
IS...’’ appears on the screen, and the computer then waits for 
you to take your hands off the keyboard, to prevent cheating 
(as if you’d try to cheat on your computer), before the whole 
thing begins again. If you manage to get the reaction time 
below 5 then the program will stop and proclaim you the 
champ. 


Here’s the listing of REACTION TEST: 
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5 REM REACTION TEST 

1@ H]=1@@6@:PAPER @:INK 7 

15 PIN BSYC32):FOR A=1 TO 32-BSCAJ=CHRSC] 
26) >=NEXT 

2@ CLS:PLOT 5,5,"STAND BY 


38 FOR A=] TO 28@6+RNDC1] J4500 

4@ NEXT A 

3@ IF KEY$<>"" THEN GOTO 3@ 

53 PLOT. 5335:"OK; PRESS THE “2% KET” 

60 COUNT=2 

7Q@ COUNT=COUNT +1 

3@ AS=KETS 

166 IF AS<>"2" THEN 72 

110 PRINT :PRINT=PRINT"SCORE:"COUNT" % 
1208 JF COUNT<HI THEN HI=COUNT -MUSIC 1,5, 
3,15:WAIT S@:PLAY @,8,0,0 

138 PLOT 8,8," BEST SO FAR IS "+tSTRSCHI) 
*PLOT @,1,CHRSC17)+B$ 

135 WAIT 188 

136 IF KEY$O"" THEN GOTO 136 
198 IF HI<S THEN 160 

158 GOTO 28 

168 REM 

178 PRINT CHRS(C12) 

188 PRINT CHR$(4) 3CHR$C2735°N 
ARE THE CHAMP 998" 

185 PRINTCHRS(4) 

130 END 


Line 19 sets the Hiscore to 1600 and sets the colour of the paper 
to black (@) and the ink to white (7). Line 15 dimensions the 


You 
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array B$ to hold 32 characters, and then fills the string with 
chequered characters (CHR$(126)). In line 26 we see the PLOT 
statement being used to print ‘STAND BY’ on the screen. Lines 
38 and 48 provide a random pause, and line 5@ checks to see 
whether you already have your finger ona key. Line 55 tells you 
it’s alright to press the Z key and lines 68 to 100 do the counting. 
If you manage a new high score then the program celebrates 
with a short note. The loop continues at line 15@ and the 
‘CHAMP’ routine is from line 178 onwards. Notice the use of 
control characters, (PRINT CHR$(12), etc,) as used in the 
champ routine, to print double height, and flashing characters. 


ADDING A LITTLE STRUCTURE 


Now is as good a time as any to introduce you to the idea of 
structured programming. Although you may think at this stage 
of your learning, ‘If-it-works-then-don’t-start-fiddling- 
about-with-it’, you will soon develop bad habits. One good 
way of writing programs is to put everything into short 
subroutine, which can be called when necessary. You will need 
to iron out all the ‘bugs’ in your programs, (a bug is a problem 
in your program which makes the program do what you didn’t 
expect it to do, the word bug comes from an accident with an 
IBM when a moth got inside the case, and while it was frying 
away within it managed to crash the system). The easiest way to 
find your bugs is to watch exactly what your computer is doing, 
then refer back to the program and find out why it’s doing it. 
Structured programming makes things neat and tidy, and 
therefore easier to decipher what’s going on. There are a few 
points to remember if you want to start ‘structured’ 
programming: 


Try not to keep jumping all over the place using the 
command GOTO, this makes the flow of the program 
difficult to follow. 


Always put an END command at the end of your program, 
if you want to end a program somewhere which is deeply 
nested in your program then use the STOP command. 


Line numbers in steps of ten. 


CHAPTER TEN 
STRINGING ALONG 


You’ll recall that several times in this book so far we have 
referred to numeric variables (letters like A or B, words like 
COUNT and GUESS, and combinations such as K9 or M1) and 
to string variables (similar to above, but followed by the dollar 
($) sign, i.e. A$, COUNTS or K9$). In this chapter we’ll be 
looking at strings, and at things you can do with them. 


THE CHARACTER SET 


Every letter, number or symbol the computer prints has an 
ASCII value. Telling the computer to print the character of that 
value produces the character. It is easy to understand this. The 
value of the letter ‘‘A’’ has nothing to do with the value 
assigned to A when it is a numeric variable, but refers to ‘*A’”’ 
when we want the computer to print it out. We’ll put the ‘‘A’”’ in 
quote marks when we refer to it as a letter. Try it now. Enter 
this into your computer and see what you get: 


PRINT ASC C"A" J 


You should get the answer 65. Now 65, is the ASCII, (ASCQ) 
stands for ASCII), of the letter ‘‘A’’. We can turn it back into 
an ‘‘A’’ by asking the computer to print the character which 
responds to ASCII code 65. We do this by using the function 
CHR$, which stands for Character-string. 
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You can get your computer to print out every ASCII code and 
character with the next short program, which has — as you can 
see — a very long printout. 


1@ REM SHOWING ASCCJ AND CHRSC() 


2@ FOR A=32 TO 126 
30 PRINT “ASCII "A;,,, "CHARACTER "“CHRSCA) 


4@ WAIT 5 
5@ PLAY 1,9,;1;18 
6@ NEXT A 


You’ll notice that we don’t print all the characters, this is 
because some of them are CONTROL CHARACTERS and 
produce very weird effects, (remember that little trick we 
learned earlier to clear the screen using CTRL & L, well that 
was a control character, try something like CTRL & G fora 
surprise). If you have a printer attached to your Oric, then you 
may like to keep a permanent record of what your computer 
can actually print, to do this change the word PRINT in line 30 
to LPRINT, your printer might start printing strange Japanese 
characters, if it does this then look for a switch which will 
probably read 7-Bit ASCII/Special Characters (or something 
similar). Switch this to 7-Bit ASCII. 


TESTING YOUR CHARACTER 


Our next program is a reaction tester like the one you 
experienced earlier. However, you are not being tested just on 
speed. In this program, you have to find the right key on the 
keyboard as quickly as possible. 


Make sure that you are in CAPS mode, i.e. the CAPS sign 
appears in the right-hand corner of the screen. A letter will 
appear in the middle of the screen. As quickly as you can, find 
that letter on the keyboard and press it. You will be told how 
long it took you, and this time compared with your best time. 


Here is the listing: 


12 
15_ 
2B 
32 
NT 
4Q 
52 
62 
72 
82 
99 
198 
T] 
112 
120 
ONE 
130 
142 
158 
162 
172 
182 
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REM KEYBOARD INSTRUCTOR 
BEST=@:CLS:PAPER @:INK 3 

A=65+INT CRNDC13%*26) 
B=@:PRINT:PRINT-:PRINT: PRINT -PRINT:PRI 


>PRINT -PRINT 


PLOT 16,5,CHR¢#CA) 
AS=KEY$ 

IF AS<>"" THEN IF AS=CHRSCA)J THEN 120 
B=Brt] 
PLOT 15,;10,STR#(B) 

IF B<286 THEN 52 

PRINT :PRINT :PRINT:PRINT -PRINT" SORRY, 
ME IS UP" 

GOTO 14@ 

PRINT :PRINT:PRINT:PRINT-:PRINT"WELL D 
» YOU SCORED" 

PRINT2@@-B"ON THAT ONE" 

IF 28@0-8>BEST THEN BEST=200-B 
PRINT:PRINT"BEST TODAY:"BEST 

ZAP: WAIT AX3:PLAY @,1,1,100 

CLS 

GOTO 20 


CUTTING THEM UP 


One 


of the really great aspects of your computer is the way it 


can be used to manipulate strings. It is called ‘string slicing’ and. 
works as follows. There are three commands which are usually 


used 


in string slicing, they are RIGHT$, LEFT$ and MID$. 


Let’s say you have the string A$ which equals ‘‘HELLO”’ for | 
instance, and you want the end two characters to equal B$, to 
do this you would say: 


B$ = RIGHTS(AS,2) 
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What the function does is take the last 2 characters of A$ and 
put them into B$. A$ stays the same, but B$=‘‘LO’’. The 
function LEFT$ works in the same way, but obviously takes 
the characters from the start of the string (1.e. the left). To see 
how this works try this one, assuming A$ = ‘f‘HELLO’”’ still; 


C$ = LEFT$(A$,3) 


The string C$ should hold ‘‘HEL’’, to see if it is holding this 
type PRINT C$. 


The third function used in string slicing is MID$, this is a very 
useful function as it allows you to take a character or a few 
characters from the middle of a string, or the characters from 
one point to the end of astring. Assuming that A$ has the same 
‘value’, try: 


D$ = MIDS(A$,3,2) 


What this does is take 2 characters from the string A$, starting 
at the third character. Now try this one: 


E$ = MID$(A$,2) 


This takes all the characters from the string A$ from the second 
character. i.e. E$ would equal ‘‘ELLO”’ and D§$ equals ‘‘LL’’. 


The next program takes the string ‘‘MATHEMATICS”’ and 
splits it up into many different ways. 


1Q@ AS="MATHEMATICS" 

20 PRINT “AS = “AS 7 

3Q@ BS=LEFTSCAS$,4)-PRINT BS 

4@ BS=RIGHTSCAS,4)-PRINT BS 

5@ BS=NIDS(A$,3,3):PRINT BS 

68 BS=MIDSCA$,6)-PRINT BS 

“@ REM COULD THIS BE A NEW POP GROUP? 


RUN the program and try to follow what it’s doing as the 
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computer carries out each instruction. In line 19 the computer 
assigns A§ to the string ‘“MATHEMATICS’’, and line 28 
prints out A$. Line 30 takes out the word MATH and prints it 
on the screen. Line 49 takes out ‘‘TICS’’ and again prints it on 
the screen. The same is done in lines 5@ and 60 where the words 
“THE and ‘‘MATICS”’ are printed. You can change the 
program to print other parts of A$, or you could even change 
the string A$, but be careful that when you are ‘cutting’ the 
string you are not trying to take parts of the string which are not 
there, i.e. if A$=‘‘ORIC’”’ and you let B$ = MIDS(A$,6,1) 
then Oric is not going to be too happy. 


PUTTING THEM BACK TOGETHER 


Strings can not only be cut up, but they can also be added 
together on your computer. The process of adding strings 
together is called the frightening-looking word concatenation. 
You can concatenate two complete strings together, or just add 
bits of them, as in our next program: 


1@ AS$="FISH AND CHIPS" 
26 B$="PEAS AND BEANS" 
30 C$=ASt+BS 

40 PRINT"AS="AS 

92 PRINT" BS="B$ 

60 PRINT"C$="C$ 

706 D=INTCRNDC13*14)+1 
88 E=IJNTCRNDC1)*14)t15 
90 D$=NINS(C$,0,E-D) 
10@ PRINT “O¢="D$ 

110 ES=A$+DS$tBS 

12@ PRINT “ES="E$ 


Try and see what’s being added to what in the listing before you 
run the program, can you see what the effect of adding A$ and 
B$ is in line 38? 
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You should get results like these: 

AS=F ISH AND CHIPS 

BS=PEAS AND BEANS 

C$=F ISH AND CHIPSPEAS AND BEANS 

D$=AND CHIPSPEAS 

E$S=F ISH AND CHIPSAND CHIPSPEAS PEAS AND 
BEANS 


A$=FISH AND CHIPS 

BS=PEAS AND BEANS 

C$=F ISH AND CHIPSPEAS AND BEANS 

DS=AND CHIPSPEA 

E$=F ISH AND CHIPSAND CHIPSPEAPEAS AND BE 
ANS 


PLAYING AROUND 


You can do a number of things with string slicing, as our next 
program demonstrates. NAME PYRAMIDallows you to enter 
your name to produce a very interesting display. Once you’ve 
seen the program in action you’ll understand why the program 
has been given the name it has. 


1 REM NAME PYRAMID 

2 REM showing string slicing 

5 PAPER @:INK 7:CLS 

10 INPUT “WHAT IS YOUR NAME " ;A$S 

2@ IF LENCA$)>18 THEN AS=LEFTSCAS, 15) 
3@ A=LENCAS):REMN ’?LENCJ? IS THEN LENGTH 
OF THE STRING 

40 PRINTTABC30) 3". ° 

5@ FOR G=1 TO A:PRINT TABC12+019-G)); 
55 PLOT @,G6,G/74+1 

6@ FOR H=] TO 2kG:PRINT MIDSCAS,G, 1); 
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70 NEAT H 

88 PRINT 

9@ PLAY 1,4,1,;18 
10@ NEAT G 


GG 
BEEE 
a ee 
TEEPE 
es He Ge se i 
NNNNNNNNNNNN 
GGGGGGGGGGGGGG 


SS SSS SS SSSOSSSSSSSS 
eee ah tae 
AAAAAAAAAAAARAAAAARARAAA 
RRRRRRRRRRRRRRRRRRRRRRARA 
jo sO Se PT 
PEErEPEERPPEEEPEEPEPEPEEPEPES 
DDDDDDDDDDDDDDDDDDDDDDDDDDDBDD 


PLAYING IT BACK 


Our final program in this chapter shows one very effective use 
of string slicing, in which a String is progressively reduced by 
one element. When you run ECHO GULCH, you’ll see a letter 
appear on the screen. It will then vanish. Once it has vanished 
(and not before, you will have a limited amount of time in 
which you must press the corresponding key). 


If you have pressed the right key, you will hear the PING, and 

the letter will be replaced by a new one, this will stay on the 
screen for a shorter time. Each time a new letter appears, you 
will be given less time to see it, before you have to type it into the 
computer. If you make a mistake, the ““SORRY, THAT’S 
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WRONG?”’ message will appear, along with your score. If you 
manage to get all of the list of letters right, you’ll be rewarded 
with a ‘““YOU’RE THE CHAMP!!!’ message. Here’s the 


1@ REM Echo Guich —- showing string 
siicing 

1S S=@:CLS 

2@ AS=MIDSC"IRFILGTLKTAFCIHSIOEAKCKSEWND 

RULDHIRLDHIJIRLG",RNDC1)x*6t1]) 

380 PLOT 19,13,LEFTSCAS$, 1) 

35 FOR G=1 TO SXLENCAS$):-NEXT G:CLS 

46 LET BS=KETS 

5@ IF Bs<"A" OR BS>"2" THEN GOTO 46 

595 PLOT 19,13,B¢ 

6@ [FBS=LEFTS(AS,13 THEN FOR G=1 TO 1@+tR 

NDC1)%3@:-NEXT G 

65 PLOT 19,13,°x*": FOR G=] TO 106: NEXT 

G 

22 IF BEY<>LEFT$CAS,1ITHEN GOTO 1148 

8B AS=NIDSCAS, 2) 

85 IF LENCA$J=]1 THEN GOTO 142 

984 S=Sr] 

35 PING 

126 GOTO 38 

11@ PRINT:PRINT:PRINT:PRINT -PRINT' SORRY, 
THAT?S WRONG " 

115 EXPLODE 

128 PRINT:PRINT" YOU SCORED ";5 

13@ END 

140 PRINT:PRINT:PRINT" YOU’?RE THE CHAMP 2 
Bois 


158 EXPLODE 
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The variable S, which holds your score, is set to zero in line 15, 
and line 2@ sets the string, A$, to a long line of letters, starting 
from a random position | —6 letters in. This method stops you 
learning the sequence easily, and it 1s also quick and efficient. 
Line 30 ‘plots’ the first element of A$ at 19, 13 and 35 waits for 
a while, to give you achance to see the letter before the screen is 
cleared. The LENO of astring is its /ength, that is the number of 
characters which make it up, i.e. the string ‘‘CHELLO”’ would 
have a length of five, because there are five letters in the string. 
The short pause that line 35 creates is proportional to the 
number of characters left in the string A$. Therefore when you 
are doing well, and are getting a few correct, the time the letter 
is left on the screen decreases each turn. | 


KEY$ 


You may have already noticed the function KEY$ in programs 
before, and you may already have a good idea as to what it 
does. If you were to write a short program like, 18 PRINT 
KEY$:GOTO 19, then run it, the effect would be to print the 
key you were pressing on the screen. KEY$ reads the keyboard 
to find out which key, if any, is being pressed. The advantage of 
KEY$ over INPUT is that there is no need to press RETURN, 
the disadvantage is that KEY$ can only hold one character at a 
time, which is most impractical when you want someone to 
enter their name. Another problem with KEY$ when writing 
fast moving programs is that it is very sluggish, and takes along 
time to autorepeat, we will be learning a much quicker method 
later in the book, but it requires a greater knowledge of the - 
machine to understand, and so for the moment we will stick to 
KEY$. 


To get back to line 49, the string B$ is set equal to KEY$, then in 
line 5@ the computer checks to see if you have pressed a ‘letter’ 
key by finding out whether B$ is ‘less than’ ‘‘A’’, i.e. one of the 
characters from 32 to 64, or it is ‘greater than’ ‘‘Z’’, i.e. a 
character from 92 to 126. If B$ is anything but an uppercase 
letter, then it goes back to line 49 to get another letter. This 
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form of comparison of strings can be used to get things in 
alphabetical order (‘‘ZEBRA’’ is greater than 
‘“*AARDVARK”’, and ‘“‘BEAST”’ is less than ‘‘CAMERA’’), 


You can compare strings using equals (=) and ‘anything but’, 
or not equals (< >) as is shown in the next few lines of the 
program. Line 68 compares the key pressed (B$) with the first 
element of A$, and if they are the same, continues through the 
multi-statement line to create a pause, (for anticipation’s sake), 
using the loop G. Line 65 prints an asterisk (*) on the spot where 
the next letter will appear. Line 70 compares B$ with the first 
element of A$ again and, if they are not equal, it sends the 
program to line 118, where you are told ‘““SORRY, THAT’S 
WRONGQ’’, the computer then ‘EXPLODE’s’, and your score 
is given. Line 8@ strips the first character of A$ off, by using 
MID$(A$,2), and 85 checks to see if you’ve ‘used up’ A§, and if 
you have, then it sends the action to line 148, where you are 
proclaimed ‘THE CHAMP’. If not, then line 99 increases your 
score, 95 ‘PINGs’ and line 10@ sends the computer back to line 
30. 


CHAPTER ELEVEN 
READING DATA 


In this chapter we’ll be looking at three very useful additions to 
your programming vocabulary: READ, DATA and 
RESTORE. We have already come across these commands 
before, but they require a much more detailed explanation. 
They are used to get information stored in one part of the 
program to another part where it can be used. 


Enter and run this program, which should make this a little 
clearer: 
1@ REM READ & DATA 


38 FOR A=] TO 18 

4@ READ B 

2@ PRINT B 

68 NEXT A 

/@ DATA 6,3,84,532, 2,543, 24, 1999, 4, 48598 


Using line 40, the program READs through the DATA 
statement in line 7@ in order, printing up each item of DATA 
(with line 58). 


RESTORE moves the computer back to the first item of DATA 
in the program, as you’ll discover if you modify the above 
program by adding line 55, so it reads as follows: 
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1@ REM READ, DATA & RESTORE 
30 FOR A=] 10 18 

4@ READ B 

39@ PRINT B 

Jo; RESLORE 


6@ NEXT A 
1B DATA 6; 3;84; 5323 2; 5433 24;.19393;4,48538 


It does not matter where in the program the DATA 1s stored. 
The computer will seek it out, in order from the first item of 
DATA in the program to the last, as our next program (which 
scatters the DATA about in an alarming way) convincingly 
demonstrates: 


1@ DATA 39:REM READ & DATA 

20 DATA 4:FOR A=1 TO S:DATA 838 
3@ READ B:OATA 73,4-PRINT B 

4@ NEXT A 


READ and DATA work just as well with string information: 


1@ REM STRING READ & DATA 
26 FOR A=] TO 3:READ AS 
30 PRINT AS:NEXT A 

4@ DATA ORIC,;READS;, STRING 


You can mix numeric and string DATA within the same 
program, so long as you take care to ensure that when the 
program wants a numeric item that a number comes next in the 
program, and when it wants a string item, it finds it: 
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1@ REM MIXED READ & BATA 
2@ READ A;BS$,B,C$,A$,BK 
38 PRINT A,BS,B,C$,A$,BK 
4Q@ DATA 4,O0RIC,643;HARTNELL; SHAW, 8783 


In our next program, GALACTIC GROCER, written by Tim 
Rogers, the goodies you are trading with start off their lives in 
DATA statements. The relative value of these strange objects 
are stored in the two DATA statements which follow. 


In this program you are the Galactic Grocer, trading such 
interstellar goodies as coal dust, reject soap, aspidistras and 
zinc hub-caps. As you'll discover, these items are in great 
demand throughout the galaxy. You start out with some money 
and a stock of goods, provided by Galactic Grocery Central, 
and you are attempting to zap around space, trading here and 
bartering there, to return to Central with more goods. On 
arrival, the goods in your hold will be sold for twice the amount 
you paid for them, and a tenth of the profits will go to you. The 
program is set over some 20 years, compressed into a quarter of 
an hour or so by the computer time continuum. 


Out there, in the cut and thrust universe of interstellar 
commerce, you’ll meet other hardnosed Grocers from other 
firms, planets and star systems. They’Il be on their way to other 
points in the known universe, and will be willing to trade with 
you. Keep in mind — when considering purchasing anything 
from wily traders — that the point of the game, is to try and 
stockpile the really pricey merchandise. 

1Q@¢a. PA=a 

118 IN=6 

120 GOSUB 78a 

138 DEF FN RCXJ=INT CRNDCIIKXJ +1 

14@ DEF FN SCXJ=INT CRNDC1IXXj) +t] 

145 PRINT CHR#C12): REM CLS 

15@ PRINT CHRS$(C43) ;CHR#C270"N"SPCC11I"GAL 
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ACTIC GROCER" 

155 PRINT CHR$(4):REM SWITCH OFF DOUBLE 
HIEGHT 

988 x=@ 

91@ I=PEEK(@) 


(1888 
12885 
1012 
1822 
1825 
1832 
184@ 
1045 
185@ 
1862 
1Q72 
1875 
1282 
12392 
11282 
1112 
1122 
1132 
L135 
1142 
115@ 
113535 
1168 
1165 
1172 
118@ 


DIM C$C213 
DIN 06213 

DIM LC€2]) 

DIM MC21) 

RESTORE 

OI PeZS 

FOR A=] TO 2] 

PLAY 1,1,1,18 

READ AS | 

LCAJ=LENCAS) 

C$CAJ=A$ 

PLOT Asha ok 

NEXT A 

FOR A=] TO 2] 

IF A<6 THEN READ MCA) :NEXT A 
MCAJ=1 

NEXT A | 

FOR A=1 TO 2] 

PEAY dads ior 

READ PCA) 

IF RNDC))>.85 THEN OCAI=FN S(18888) 
PLOT 38-A;A; "X" 

NEXT A 

GOSUB 85a@ 

W=2188 | 

M=10@@8+FN SC18088) 
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1193@ GOSUB 508e 
11935 J1=J 
2000 PA=@:IN=6:GOSUB 7ga0 
2010 PRINT "K kX GALACTIC GRO 
CE RX xk" 
2826 GOSUB 68ae 


2040 PRINT “Year ",,W 
2058 PRINT "Money", ,CHRE(95) 5M 
28606 PRINT 


2072 FOR A=1 TO 2] 

288@ IF OCAJ<>@ THEN PRINT OCA), ,C$CA) 
20930 NEXT A 

2108 BS="buy" 

2118 GOSUB 3882 

2130 BS="sell" 

2148 GOSUB 38828 

2150 W=W+l 

2160 IF W<2120 THEN 2062 

2178 GOSUB 58@aa 

2188 J2=J 

2200 PA=]1:IN=?7:GOSUB 788 

2218 PRINT “You have arrived in port,” 
2220 PRINT 

2225 %@=J1:GOSUB 450@ 

22308 PRINT “You started out with "CHRS$(3 
33 32$ 

2240 PRINT “worth of gcsods" 

2245 2=J2:GOSUB 4500 

2250 PRINT 

2262 PRINT “You now have "CHR$C95) 52$ 
22/8 PRINT “Worth of goods" 

2280 PRINT 
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2298 V=INT CCIJ2-J1IZJI ka) 

23@@ PRINT “You made "“U"% profit" 

2320 JF I<U THEN POKE @,U:[=PEEK(CG@) 

2330 PRINT 

2340 PRINT "Best so far :"["%" 

23940 REM END OF GAME 

2400 PLOT 7,26,"00 YOU WANT TO PLAY AGA] 

N 9?" 

2465 Q$=KEYS:1F QS<>"Y" AND Q$<¢>"N" THEN 
2485 

2412 IF Q@$="Y" THEN RUN 

2428 END 

30080 PRINT 

3010 N=FN SC3S3 

3030 S#="buy" 

3040 IF BS="buy" THEN S$="sell" 

3845 PRINT “There are "N'traders wishing 
to" 

3858 PRINT S$" some goods" 

3855 PLOT 13,26,"PRESS ANY KEY" 

3066 IF KEY$<>"" THEN 3860 

3862 IF KEY$="" THEN 3062 

3065 GOSUB 8a@ae 

327@ FOR A=] TON 

3072 GOSUB 828aa 

3875 F=FN SC3) 

3082 X=FN RC21) 

3085 GOSUB 4000:IF X=8@ THEN 3276 

38690 Y=FN S(18000) 

3895 P=FN SCY) 

310@ 2=FN RC190@) 

3112 GOSUB 60a@8 


3148 
3145 
3147 
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2Z=INT C2xPCXJ3I)7140¢ 
GOSUB 4506 


IF P>OCKIANDBS="sell"THENPRINT "The 


ul 


trader wants more } 


3148 


JF P>OCKIJANDBS="sell" THENPRINT "than 


you have," :GOTO32/78 


3138 
3168 


a 
L 


31728 
3186 
31398 
31955 


PRINT "Trader “A'"wishes to "S$ 

PRINT P"to "Y;LEFTSC(CCS$CX),LCXJ)3" a 
PRINT CHR$(95)3;2$" each" 
PRINT 
PRINT 


PRINT 


“CHRS$C395) 5M")" 
"OCX) ;LEFTSCC$ (XxX), 


"CYou have 
"CYou have 


LOXJJ")" 


3200 
320] 


GOSUB 7582 
IF2XPOMNTHENPRINT" You haven’t enough 


money" :-GOTO327¢2 


3205 
3218 
3215 
3222 
3225 
3238 
3242 
3250 
3266 
3270 
3273 
3282 
40ge 
4805 
4012 


PRINT “How many to “BS: INPUT US$ 
REM 

LI=VAL CUS ) 

IF U<P OR LOY THEN 3288 

IF BS="sell" THEN U=-U 

IF U<-OCX) THEN 3288 

IF M-UX2<=@ THEN 3190 

M=M-LUx2 

OCKI=OCK)+U 

ZAP :WAIT SO@:NEXT A 

IF N=@ THEN FOR H=1 TO 15@:NEXT H 
RETURN 
REM 
PRINT 


PRINT 


"Trader "A'says:- 


"IWhat do you want to "BS"9?" 
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40890 INPLT 2$ 

4025 IF 2$="@6" THEN X=@:RETURN 

4030 FOR B=] TO 2] 

4046 IF2@$=MNID$C(C$(BI,MNCBIIJ THEN X=B:GOTC 
4198 | 

49050 NEXT B 

4860 PRINT 

4086 GOTO 4622 

4100 JF RNOC1)<.8 THEN X=B:RETURN 

9118 PRINT “Sorry, Trader “A"does not wa 

ni to" 

41135 PRINT S$" any "MIDS(C$(BI,NCBI) 

4120 X= 

4125 WAIT 5@ 

41328 RETURN 

4588 2$=STRS$(Z) 

4518 FOR R=] TO LENC2$) 

4520 IF NID$SC2$,R,1)="."° AND R=LENC2Z$) T 

HEN RETURN 

4530 IF NIJO$S$C2$,R,1)="." AND R=LEN(C2Z$)-] 
THEN 29=2$1"Q9" 

4354@ NEXT R 

455@ RETURN 

3800 J=G 

08410 FOR A=1 TO 2) 

99026 J=jJtOCAIKPCAIXK2 

98638 NEXT A 

9048 J=J+% 

5@5@ RETURN 

BOGBPRINT :PRINT?PRINT-:PRINT:PRINT ?PRINT 

6068 RETURN 
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7008 PAPER PA 

7016 INK IN 

7020 CLS 

706306 RETURN 

2I@B NO=FN RC2Q)J-FN RC20) 

7510 MUSIC 1,2,1,@:PLAY 1,0,1,1@ 

72328 WAIT 18 

27538 MUSIC 1,3,1,@:PLAY 1,@0,1,2@ 

2540 WAIT 28 

7II6 RETURN 

8@@@ IF S$="sell" THEN PA=5:IN=@:GOSUB 7 
806 :RE TURN 

8810 PA=1:IN=7:GOSUB 78@G 

8020 RETURN 

8580 INK @ 

8518 MUSIC 1,3,1,¢ 

8520 PLAY 1,6,1,1@ 

8538 WAIT 28 

8340 INK 4 

855¢@ MUSIC 1,1,1,¢ 

8568 PLAY 1,0,1,3@ 

85706 WAIT 32 

83580 INK IN 

8598 RETURN | 
98686 DATA TONNES COAL DUST,KG ORANGE PEE 
L,»GRAMS GRAIN DUST 

981@ DATA GALLONS SILICON INK,BARS REJEC 
T SOAP 

9828 DATA GREEN SMARTIES,EX-DICTATORS, Te 
SI-THBES 

3@38 DATA TU SETS, GOLDFISH 
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9942 DATA MISSILES, ASPIDISTRAS, MATCH HEF 
US; SLIrreks 

995@ DATA CHIPPED COFFEE MUGS,4éINC HUB-c 


APS, TOE NAILS 
9@60 DATA PEN TOPS, PAPER BAGS, BADGES, NO] 


SES 
9972 DATA 6,5,4,3956 

9988 DATA 18,18,3,38,.3,.1,15,1,258,3, 12 
98,4,:1,;5,1.5,18,1 — 

929@ DATA .2,.1,3,23 


Arrays are dimensioned and variables are initialised in the lines 
918 to 1160. The C$ array is filled with your initial supply of 
goods (the coal dust and the like) with the loop from 1948 to 
1988, and a diagonal row of stars is printed (line 1075) to keep 
you amused while this is going on. Line 1150 ensures that 
around 15% of the ‘O’ array will contain numbers generated at 
random between one and ten thousand (using the ‘S’ function 
which was, you’ll recall, defined in line 14@). More stars are 
printed by line 1155. 


Once the loop has been traversed, 1165 sends the program to 
the subroutine starting at 8500 which makes a few noises and 
flashes the INK colour a bit. Line 1179 sets the variable W (the 
year) to 2108, and 1180 sets up your starting money (variable 


M) to a value somewhere between 1000 and 2000 (using 
function S again). Line 1198 sends the computer to the 
subroutine from line 5068, which works out the value of your 
cargo (J). Line 2600 assigns values to the PAPER and INK 
colours, then sends the action to the subroutine from line 7600 
to put them in order. 


The subroutine from line 6000 called from line 2629, prints out 
six blank lines before returning to lines 2640 and 2056 where the 
year (W) and your money (M) is printed out. Another blank 
line is printed (by line 2066) then the loop from 2878 to 2690 
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prints out your holdings. The string variable B$ is set to ‘“‘buy’’ 
in line 2018, and then the subroutine from 3008 (where the 
program is directed by line 2110) the entire buying and selling 
occurs. Before 3000 is called again, by line 2140, B$ is set equal 
to ‘‘sell’’. The word assigned to B$ determines the word 
assigned to S$ (either ‘‘buy’’ in line 3038 or ‘“‘sell’’ in the 
following lines). Both B$ and S$ are used in the print lines from 
3158, where you are told that ‘‘Trader 1 wishes to buy...’’ or 
Trader | wishes to sell. ..’’. 


The year (W) is incremented in line 2158, and the next line 
checks to see if 20 years have elapsed since the game began. If 
they have (and W is not less than 2120, as checked by 2168) the 
program ‘falls through’ to the next line, where the final report 
is generated: ‘‘You have arrived in port...’’, and so on, until 
you are told how much profit you made (line 2300). The ‘best 
profit so far’ is calculated, and ‘POKEd?’ into location (@). 


CHAPTER TWELVE 
LIVING MORE 
COLOURFULLY 


You have acolour computer on your hands, and so you should 
make the most of it. We’ll start our investigation of ways to 
improve your programs by referring back to the FAST FOOD 
program which was first introduced in chapter four. 


We have been using colour statements in many of the programs 
you’ve encountered so far, so you may have a pretty good idea 
of how to use the facilities. The Oric has two commonly used 
colour commands, INK and PAPER. INK, as you might 
expect, sets the foreground colour, i.e. the colour we want the 
computer to write in. PAPER, on the other hand, sets the 
background colour. To get the computer to print everything on 
a red background for example, type ‘PAPER 1’, if you want 
the foreground to be white then type ‘INK 7’, and so on. 


Here’s a version of the FAST FOOD program using INK & 
PAPER: 


1@ REM FAST FOOD WITH GLOBAL INK & PAPER 
26 LET A=INTCRNDC1I3X4)+1 
3Q@ LET B=INTCRNDC1)X7) 


4@ PAPER B:INK ?2-B:IFB=8-B THEN INK @ 
5@ PRINT:PRINT"A IS"A" B IS "B 
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60 PRINT" YOU? VUE ORDERED" 

2@ IF A=] THEN PRINT"A HANBURGER" 

BQ IF A=2 THEN PRINT"FRENCH FRIES" 

90 IF A=3 THEN PRINT"SPARE RIBS" 

1@@ JF A=4 THEN PRINT"A THICK SHAKE" 
11@ WAIT 5S@ 

12@ GOTO 224 

You'll notice that as soon as the PAPER or INK colour is 
called, the whole screen is effected. This is called Global colour 
commands. 


Here is a list of the colour codes on the Oric: 


9 Black 

1 Red 

2 Green 

3 Yellow 
4 Blue 

5 Magenta 
6 Cyan 

7 White 


If for, instance, you wanted a yellow background, then you 
would type PAPER 3, if you wanted a Blue ink to go with this 
lovely yellow background, then type INK 4. 


You’ll probably find that you will learn each colour’s number, 
and the need for checking up will soon disappear. 


You may be thinking, this is all very well but what if I want 
more than one paper colour, or more than one ink? This is 
possible, but not as easy to grasp. | 


The Oric has a character known as the escape character, there is 
even a button on the extreme left of the keyboard especially for 
it. It has a strange effect on otherwise normal letters, press the 
escape key now, followed by the Q key, surprised? You can also 
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include something like that inside the program by printing 
CHR$(27) which is the control character, followed by the 
character which corresponds to what you want. Here is a list of 
the characters, and their effect after a escape character has been 
printed. 


@ INK BLACK 
A INK RED 


TaMMOAwW 


— 


Coaend 


K<CHNROV O Z Zor RR 


INK GREEN 

INK YELLOW 

INK BLUE 

INK MAGENTA 

INK CYAN 

INK WHITE 

SINGLE HEIGHT-STEADY-STANDARD- CHARACTE] 
SET 

SINGLE HEIGHT-STEADY-ALTERNATE CHARACTE 
SET 

DOUBLE HEIGHT-STEADY-STANDARD CHARACTE 
SET 

DOUBLE HEIGHT-STEADY-ALTERNATE 
CHARACTER SET 

SINGLE HEIGHT-FLASHING-STANDARD 
CHARACTER SET : 

SINGLE HEIGHT-FLASHING-ALTERNATE 
CHARACTER SET 

DOUBLE HEIGHT-FLASHING-STANDARD 
CHARACTER SET 

DOUBLE HEIGHT-FLASHING-ALTERNATE 
CHARACTER SET 

PAPER BLACK 

PAPER RED 

PAPER GREEN 

PAPER YELLOW 

PAPER BLUE 

PAPER MAGENTA 

PAPER CYAN 


W PAPER WHITE 
Don’t worry about those bits in the middle, we’ll talk about 
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those later. The good bits are the characters from @-—G and 
P-—W. Try pressing the escape key, followed by one of those 
keys and see if the thing you expected to happen, did. Take note 
that the escape character only effects, at most, one line. You 
can put as many escape characters on that line, but they will not 
overlap. Try this new version of FAST FOOD using escape 
character colour: 


1Q@ REM FAST FOOD WITH COLOUR 

15 PAPER S:INK @ 

2@ A=INTCRNDCIIX4) +1 

38 B=INTCRNDC1)*5S)+1 

4@ PRINT:PRINT “A IS “A" BTS “5 

45 PRINT CHR$(27) ;CHRS(B+8@) 5" YOU’? VE ORD 
ERED" 

5@ IF A=] THEN PRINTCHR$(27) ;"RA HAMBURG 
ER" 

6@ IF A=2 THEN PRINTCHR$(C27) 5"SFRENCH FR 
JES” 

7Q@ IF A=3 THEN PRINTCHR$(27) ;"TSPARE RIB 
5" 

88 IF A=4 THEN PRINTCHR$(27);"VA THICK 5S 


HAKE " 
3@ WAIT 30 
188 GOTO 28 


Now, to explain the use of colour more fully, we are going to 
take a simple program, and gradually elaborate it, showing 
how adding such things as user-defined graphics can add a 
great deal of interest to your programs. At the end of this 
section, we’ll give you a couple of suggestions to apply if you 
wish to keep improving the program, because, as every 
programmer knows, there is no such thing as a perfect 
program, there is always room for improvement. 
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The program we’re going to use as the core of our development 
work is a standard ‘Duck shoot’ program, in which little 
objects fly across the screen, and you have to try and shoot 
them down. In the first version of the program, the little objects 
are letters, and you-are the ‘X’. You fire at the ‘ducks’ by 
pressing the space bar, and you move yourself left using the 
cursor keys, on either side of the space bar, (you move in the 
direction of the arrows on those keys). 


Although there is no time limit on this program, there is a limit 
to the number of shots you fire. In all of the versions of this 
game in this part of the book, you’ll see the program starts with 
a limit of 15 shots. The number of shots is deliberately kept low 
in the game, so you will not be able to get a high score just by 
leaving your finger on the space bar, and waiting for the ducks 
to fly into the line of fire. 


Here, then ts our first verion. Type it into your computer, and 

run it to get underway. 

1@ REM DUCK SHOOT 

20 SC=@:SHOTS=15:CLS 

38 A$S="2XC KD FI TR SKF AS FK- FKKL 

DaQ" 

48 ACROSS=15 -DOWN=1 4 

34 PLOT 1,5,A$ 

6@ PLOT ACROSS-1,DOWN,” X " 

70 IF DEEK(C?83)=48382 THEN GOSUB 158 

8@ PLOT 1,;@0,"SCORE “tSTRSCSCORE J) 

90 PLOT 20,8@,"SHOTS LEFT"+STR&CSHOTS)+" 

100 IFSHOTS<1THENPLOT?,1@6,"THAT?S THE E 
NG oF THE GAME" -END 

11@ IF DEEKC783)=4948351 THEN ACROSS=ACROS 
Sai 
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12@ IF DEEK(72833=48255S THEN ACROSS=ACROS 


St] 7 

13@ AS=RIGHTSCAS, S7ILEFTSCAS; 1) 

14@ GOTO 3@ 

15@ SHOTS=SHOTS~-] 

168 IF MIDSCAS,ACROSS,13=" " THENRETURN 


17@ SC=SC+57 | 
188 L$=LEFTSC(AS, ACROSS-1) :RS=RIGHTSC(AS, 3 
8-ACROSS) | 

19Q@ AS=L$+t" "+RE 

288 RETURN 


You’ll see the letters which are held in A§ (see line 38) moving 
across near to the top of the screen. You (the ‘‘X’’) will be in 
about the middle of the screen when the program starts. You 
can — as we mentioned a few moments ago — move yourself 
back and forth using the cursor keys to get yourself into the 
position which you think gives you the best possible chance. 
When you judge a duck is directly overhead, press the space bar 
to fire your patented anti-duck missile. The number after the 
words ‘SHOTS LEFT” (in the top right hand corner of the 
screen) will decrease, and if you have been accurate, the 
number after the word SCORE in the top left hand corner of 
the screen will increase. 


Note, by the way, wherever possible, we have used explicit 
names for the variables within this program. That is, the 
variable name for the shots left is SHOTS, for your position 
across the screen, the variable name is ACROSS, and the 
position down the screen is DOWN. Even though it takes a little 
longer to type long variable names into a program and (of 
course) they use up more memory than do shorter names, 
running out of memory is rarely a problem on your computer, 
and the advantages of using explicit names to keep the purpose 
of various parts of the listing clear outweighs the extra time it 
takes to type them in. 
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If, for example, you were writing a program like this and then 
you decide that it would be better if the ‘X’ was printed further 
down the screen, you would not have to search through the 
program to work out which variable held your ‘‘down’’ 
co-ordinate. If you get into the habit of using explicit names, 
your debugging time will be that much shorter. 


Line 30 defines the string variable A§ as a long series of letters 
and spaces. The letters can be anything you like; don’t feel you 
have to copy ours. The important thing, however, is that the 
string is 38 characters long. You can check this by running the 
program briefly, stopping it with CTRL/C, then typing in, asa 
direct command, PRINT LEN(A$). If your string is the correct 
length, PRINT LEN(A$), followed by RETURN will give the 
answer 38. 


The string handling, i.e. LEFT$, RIGHTS, MIDS, etc., is used 
to move the ducks across the screen. The string A$ holds the 
ducks, as you will have gathered, and ts plotted onto the screen. 
Then, using string slicing, a character is taken off one end, and 
placed at the other, printed again and the loop continues. So 
creating a feeling of movement. 


If you are pressing the space bar when the computer gets to line 
79 (and notice the use of the word ‘DEEK’, we’ll cover that 
word later, it is extremely useful), then the action is sent to the 
subroutine at 158, where the value of shots is decreased by one. 
If there is a space at position MID$(A$,ACROSS, 1) then the 
computer RETURNs from the subroutine because you have 
missed the ducks. If there is anything but a space there then the 
computer continues through the subroutine, adding 57 to your 
score, and removing the duck from the string. 


Now all this takes some time to explain, but you’ll find the 
computer does it apparently instantaneously. You press the 
space bar, the score increases by 57 (if you’re a good shot), the 
number of shots drops by one and the duck disappears. You’ll 
see that the program continues until when you run out of shots, 


CHAPTER TWELVE 91 


when the game terminates. Take note of your score at this 
point, and see if you can beat it in subsequent runs. 


Once you have the program running to your satisfaction, and 
you have a pretty good idea of how it works, modify it to read 
like the following program. You do not have to NEW the 
computer. Just compare the program with the following 
listing, line by line, using the EDIT function where necessary 
and also adding new lines in between the old lines. 


1@ REM DUCK SHOOT 

15 PAPER @:INK ] 

16 COL=] 

2@ SC=@:SHOTS=15-:CLS 

38 AS="Z2XC KD FI] TR SKF AS FK- FKKL 
0 QQ" 

4@ ACROSS=1]5 :DOWN=14 

5@ PLOT 1,5,A$ 

D5: (PLOT: O595-COL 

S6. E0M=COLt]=1F COLD? THEN: COLA] 

62 PLOT ACROSS-1,DO0WN,” X 

20 IF DEEKC?783)=48382 THEN GOSUB 158 

8@ PLOT 1,@,"SCORE "“+tSTR&CSCORE ) 

9@ PLOT 28,@,"SHOTS LEFT'’+STRSCSHOTSJ+" 


102 IFSHOTS<]THENPLOT?,18,°THAT’?S THE E 
ND OF THE GAME” -END 

118 IF DEEK(783)=4835! THEN ACROSS=ACROS 
S21 

128 IF DEEKC?283)=48255 THEN ACROSS=ACROS 
ot 

130 AS=RIGHTS(ASF, BPITLEFTSCAS; 1) 

140 GOTO S@ 

158 SHOTS=SHOTS~1 
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166 IF MIDSCAS,ACROSS,1)=" “ THENRETURN 
17@ SC=SCtr5? 

180 L$=LEFTSCA$, ACROSS-—1) :-RS=RIGHTSCAS, 3 
8-ACROSS) 

19@ AS=L$t" “+R 

202 RETURN 


Now when you run this, you’ll see an immediate and quite 
striking improvement. Colour certainly adds a lot to any 
program on your computer. Line 15 sets the PAPER (that is, 
the background) colour to black (colour number 9) and the 
INK (the foreground colour) to red (INK colour 1). 


Even if we had nothing else, there is a significant improvement | 
in the program. You have the score, shots left, ducks and the 
*X’ all printed in red on a black background, which is far more 
interesting than just plain old black and white. 


The other colour features like the ‘shimmering’ ducks are 
plotted onto the screen, like an escape character colour. 


Apart from the colour changes we’ve discussed, the listing is 
essentially the same as the first listing. However, you can see 
that the few changes that we have made have improved the 
game considerably. We'll now continue with the 
improvements, adding such things as sound. 


t@ REM DUCK SHOOT 

15 PAPER @:INK 1 

16 COL=]:SHOOT:?PLAY @,1,1,28@0:WAIT 1a@ 
2@ SC=@:SHOTS=15:CLS 

3Q@ AS="2xKC KD FI TR SKF AS FK- FRKKL 
0 Q " 

4Q@ ACROSS=1]5 :-DOWN=14 

5@ PLOT 1,5,A$ 


1a@ 
{ig 
oad 
126 
Sst] 
132 
14@ 
15a 
160 
176 
186 
8-A 
138 
262 
212 
a 

220 
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PLOT @,5,;COL 
COL=COL+1]:IF COL>?7 THEN COL=1 
PLAY 1,@8,1,;1 
PLOT ACROSS-1,D0WN," X " 
IF DEEK(C783)=48382 THEN GOSUB 158 
PLOT 1,@,"SCORE “+STR#CSCORE J 
PLOT 2@,@,"SHOTS LEFT"+tSTRSCSHOTS)+t" 


IFSHOTS<1 THEN GOTO 212 

IF DEEK(783)=48351 THEN ACROSS=ACROS 
IF DEEK(7833=48255 THEN ACROSS=ACROS 
AS=RIGHTS$(AS, B7ITLEFTSCAS, 1) 

GOTO 5@ 

SHOTS=SHOTS~—1 

IF MIDSC(A$,ACROSS,13=" " THENRETURN 
SC=SC+57 


L$=LEFT$(A$, ACROSS-1) :R$=RIGHTS(AS; 3 
CROSS J 
AS=L$+" "+RE 
RETURN 
PLOT?,1@,"THAT’?S THE END OF THE GAM 


EXPLODE -END 


There is very little difference between the second and third 
versions of Duck Shoot, apart from the PLAY and SHOOT 
commands, all is the same. As you know from previous 
chapters, the sound on the Oric adds a great deal of interest to 
the programs. 


The next version of the game we’ll look at is, as you can see, 
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considerably different from the ones we’ ve been examining to 


date. 
(a4) 
LZ 
15 
16 
20 
32 


182 
112 
orl 

122 
ot 

138 
142 
130 
160 
176 
186 
S-A 


(It’s also a lot longer). 

REM DUCK SHOOT 

GOSUB 346 

PAPER @:INK 1] 

COL=] :-SHOOT-:-PLAY @,1,1,2000:-WAIT 104 
SC=@:SHOTS=15:CLS 

ASs"oee 8 & 8 f ee. Oe ee 
ACROSS=15 :DOWN=14 

PLOT 1,5,A$ 

PLG) 35,6 

COL=COL+1]:IF COLS? THEN COL=] 

PLAY 1,;0,1,1 

PLOT ACROSS-1,DOWN,” Xx " 

IF DEEKC783)=48382 THEN GOSUB 154 
PLOT 1385" SCORE “+S 7TR¢0SCORE J 

PLOT 20,6, "SHOTS LEFT"+STRSCSHOTSIJt" 


LESHOISCITHEN GOTO 229 
IF DEEKC783)=48351] THEN ACROSS=ACROS 


JF DEEKC7833=48255 THEN ACROSS=ACROS 


AS=RIGHTSCAS, 3BYI+LEFTSCAS, 1) 


GOTO 5@ 

SHOTS=SHOTS-1 

IF MIDSCA$,ACROSS,1)=" ° THENRETURN 
Sb=Slt57 


L$=LEFT$(A$, ACROSS-1) :R$=RIGHTS(AS, 3 
CROSS) 
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19@ AS=L$t+" "+RF 

2066 RETURN 

21@ PLOT7;1@,"“THAT’S THE: END OF THE GAM 
a 

220 EXPLODE :-END 

340 FOR A= ABBR Oe NOL ea) TO 46682 +O 
BKASCOT EI") +7) 

31@ READ US:POKE A,US 

32@ NEXT A?RETURN 

338 DATA @,19,54,38,14,3,0,8 


You may be wondering why the letters in line 38 have been 
changed to exclamation marks (!), and if you have already run 
the program, you may be wondering why the exclamation 
marks are now little ducks. The answer is simple, the ducks 
have been user defined, the exclamation mark has been 
re-shaped as a duck. 


It’s very simple to define a graphic. We’ll take you through the 
way we created the alleged duck, and from this explanation you 
should be able to produce anything you like. 


The basis of any user-defi Pao graphic ee is a six by eight 
grid, like this one: 2° alls fags 








AA AZ 


YI | Yt 


32 (6 LR | | 
To work out a graphic, you simply fill in the squares in this grid 
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which you wish to print as solid dots in the final graphic. Our 
duck (in grid form) looks like this: 





If you look to the lines from 360 onwards in the most recent 
listing of DUCK SHOOT, you’ll see a loop, which includes a 
READ statement and the disturbing looking line, POKE A,US 
etc. This needs detailed explanation. 


The shape of each character is held in the area of memory 46080 
to 48126. You will probably only be concerned with the 
locations 46336 (the start of the space character, to 47103 (the 
end of the ‘hash’ graphic). Each character takes 8 locations, 
each location holds a number for each row of the graphic. To 
find the start location for a particular graphic, i.e. ‘‘£’’, a short 
and easy way is to say, as a direct command; 


PRINT 46980 + (8* ASC(‘‘£’’)) 


You will notice that the loop in line 30@ begins at the start 
location for the exclamation mark, and finishes 7 locations on, 
the end of the exclamation mark. 


This short method of finding the start location for a particular 
character can be very useful when you want to define more than 
one graphic, as long as the characters you want to be redefined 
follow each other, (see the reference chart at the end of the 
book), then you could, if you wanted to redefine the ‘‘A’’ and 
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the ‘‘B’’, say ‘FOR A=46986+(8*(ASC(‘‘A’’)) TO 
46086 + (8* ASC(‘‘B’’)) + 7’ followed by a similar routine as the 
one in subroutine 360. 


The idea of locations, PEEK, POKE, DEEK and DOKE will be 
covered in the last chapter of the book. 


Now we have learned where to put the information about our 
new characters, we now need to know what to put there. 


As we have mentioned before, each character takes up eight 
locations for the eight rows of information, and in each 
location there is a number between 8-63 which holds the 
information for six columns across (it actually holds 
information for eight columns, but we only use six of them), 
stored in binary. 


A binary number is a weird looking thing, it’s all @’s and 1’s, 
nothing else. This is very useful as far as our graphic 1s 
concerned, as when writing down the binary number that we 
want to poke into a particular location, we can just skim across 
arow and, if a square is empty, we write a zero and if it is full 
then we write a 1. Our duck looks something like this in binary 
form: 


ROW 1 980000 
ROW 2 610011 
ROW 3 110116 
ROW 4 @11116 
ROW 5 861118 
ROW 6 060611 
ROW 7 900600 
ROW 8 0600060 


Can you see the pattern? 


You may already have spotted the problem about ‘how does the 
Oric know when you’re talking about binary rather than 
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decimal?’ Well it can’t. You have to convert between binary 
_ and decimal before you can ‘POKE’ into the required location. 


Converting between decimal and binary is not an easy thing for 
the beginner, but it is a useful thing to learn. Look again, at our 
duck. Study this diagram carefully, as it holds a lot of useful 
information: 


2524232271270 


| =0 
244+214+20=19 
2°+244+224+21=54 
244234+224+2!1=30 
2942242014 
21+209=19 

=Q 

=O 





The only thing that you really need to remember is the numbers 
along the bottom of the grid. As you work your way along each 
row, if a block is set, that is filled in, then add the 
— corresponding column number, 1.e. in row 2 of the duck the 
decimal number is 16+ 2+ 1 because those columns are set. 


We can understand that this might be a little confusing, so here 
is a program which will do the conversion for you: 

(@ REM BINARY TO DECIMAL CONUERTER 

26 REM PETER SHAW 1983 

3@ INPUT “BINARY " ;B$:T=9 

40 IF LENCB$}<>6 THEN 32 

2@ FOR A=@ TO 5 
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6@ IF MIDSC(Bs$,6-A;1)="1" THEN T=T+t+C2eA) 
?@ NEXT A | 
80 PRINT "DECINAL "3;T-:PRINT 


38 GOTO 38 

That brings us to the end of this series of DUCK SHOOT - 
games. There are five things you can do to further develop the 
program: 


— Cut the number of shots available to make the program even 
more challenging 

— User define the ‘‘X”’, it would be best to include it as a separate 
subroutine which is called right at the start of the game. 

— Add a ‘high score’ feature! 

— Allow the computer to detect when all the ducks have been shot 
(this will happen when A$ is just full of 38 spaces) and when 
they have all been shot, to give a bonus, more shots and a new 
row of duck to fire at. 

— Add an extra line of ducks (B$) flying in the opposite direction. 
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An array is used when you want to create a list of items, and 
refer to the item by mentioning just which position in the list it 
occupies. You set up an array by using the DIM command. If 
you type in DIM A(5), the computer will set up a list in its 
memory called A, and will save space for five items: A(1), A(2), 
A(3), A(4) and A(5). These, by the way, are called elements of 
the array. 


When you dimension, or set up, an array, the computer creates 
the list in its memory, and then fills every item in that list witha 
zero. So, if you said to the computer, PRINT A(1) or PRINT 
A(4) it would come back with 8. You will fill items in an array 
with LET (such as LET AQ) = 1000) or using READ and 
DATA as we saw in Chapter eleven. Once you’ve filled a 
position in the list, whether you filled it with LET or READ, 
you can get the computer to give you the contents of that 
element of the array, by simply saying PRINT A(2). 


The next program dimensions (this, as we said, simply means 
sets up, or creates) an array called A, with room for fifteen 
elements. The B loop from lines 3@ to 5@ fills the array with 
random digits between zero and nine, and then prints them 
back for you with the loop from lines 68 to 98. 
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1@ REM ARRAYS 
28 DIN ACIS) 
30 FOR B=] TQ 15 
40 ACBI=INTCRNDC1)x*3) 
28 NEXT B 
606 FOR 2=] JO 15 
7@ PRINT "AC"Z@") IS “ACZ) 
SQ WAIT 12 
3@ NEXT 2 


This is called a one-dimensional array, because a single digit 
follows the letter which ‘‘labels’’ the array. You can also have 
multi-dimensional arrays, in which more than one number 
follows the array label after DIM. In the next program, for 
example, the computer sets up a two-dimensional array called 
A, consisting of four elements (that is, it is dimensioned by 
DIM A(4,4) as you can see in line 20: 


1@ REM MULTI-D ARRAYS 

15S INK 7:PAPER@ 

16° Elo 

20 DIN AC4,49) 

36 OR B=1 TO 4 

4@ FOR C=] TO 4 

5@ ACB, CJ=INTCRNDC1I)X3) 

66 NEAT C,B 

7@ PRINT CHR$C27)5"T NG ae as 
88 FOR B=] 10 4 

9@ PRINT CHR$(27) 5"T"BjCHRSC27)"P" ; 
106 FOR C=] TO 4 

11@ PRINT ACB; C3; 

120 NEAT C 

13@ PRINT 

14@ NEXT B 


When you run it, you will see something like this: 
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You specify the element of a two-dimensional array by 
referring to both its numbers, so the first element of this array 
(the number 7 in the top left hand corner of the printout above) 
can be referred to as A(1,1). The @ at the end of the line is A(1,4) 
and the 8 on the bottom row is A(4,3). 


Your computer also supports string arrays. Enter and run this 
routine to see a string array in operation: 


1@ REM STRING ARRAYS 

20 DIM ASCS) 

38 FOR B=] 10 5 

4@ ASC(BI=CHRSCINTCRNDC] 3*26)+65) 
28 NEXT B 

6@ FOR B=1 JO 5S 

7@ PRINT “ASC"B")J IS "ASCB) 

8@ NEAT B 


You need not only put one letter into each element, you can, if 
you wish, use much longer strings, as in this example: 


1@ REM STRING ARRAYS 

20 DIN ASCS) 

30 FOR A=] TO 5 

4@ READ ASCA) 

26 NEAT A 

6@ FOR A=1 TO 5S 

7Q@ PRINT "ASCTA")D IS *"ASTAI"?" 
B@ NEXT A 
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3@ DATA ORIC,ONE;STRING;, ARRAYS, ARE DEMON 
STRATED HERE 


ESCAPING FROM MURKY MARSH 


This program demonstrates the use of a two-dimensional array 
for ‘‘holding’’ an object and for printing it out. The object in 
this case is a miniature dragon, who is trying to escape from 
Murky Marsh, indicated in this program by a square of dots. 
Our dragon is very stupid, and moves totally at random within 
the marsh. He is free if he manages to stumble onto the outer 
right or bottom two rows. 


The dragon in this program demonstrates Brownian motion, 
the random movement shown by such things as tiny particles in 
a drop of water viewed under a microscope, or of a single atom 
in a closed container. Brownian motion explains why a drop of 
ink gradually mixes in with the water into which it has been 
placed. 


Here is the program listing: 

1@ REM DPRAGON’?S LAIR 
28 DIM AC1IG, 10) :2-MN=2 
30 GOSUB 5a? 

4@ X=INTCRNDCI)X2) 

5@ IF x=@ THEN P=Prt]l 
6@ IF X=1 THEN P=P-1 
7Q X=INTCRNDC1)*2) 

80 IF X=@ THEN G=0+t] 
9@ IF X=] THEN Q=@Q-] 
1@@ IF Q<1 THEN Q=@rtl 
110 IF P<] THEN P=Prtl 
128 M=MN+]1 

P2410 HES 

130 ‘PLOT Gy3s "Attemet. “+STRSCt © 
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41@ ACP; Q)=-13 

415 PRINT:PRINT :PRINT:PRINT:-PRINTTABC127) 
420 FOR x=] TO 18 

430 FOR Y=1 TO 18 

440 PRINT CHRSCACX, 73+46) 5 

45@ NEXT Y 

46@ PRINT:PRINT TABCIZ); 

476 PLAY @,15,;1,1@:NEXT & 

4936 IF Q@>8 OR P>8 THEN GOTO 682 

495 GOTO 4@ 

S@@ Q=INT CRNDC1)X33+14:P=INT CRNDOO] JXSIt 
4 

512 FOR B=46@80+(8xX33) TO 46080+C8x33) t7 
526 READ US 

234 POKE B,US 

24@ NEXT B 

208 PAPER @ 

96@ INK 6-CLS 

978 RETURN 

58@ DATA @,16,58, 31,46,7,6, 38 

6@@ PRINT:PRINT:PRINT:PRINT-PRINT 

610 PRINT “Wheuw...Free atlast", 

DAVY JONES’ LOCKER 


You can now relax with our next game — FULL FATHOM 
FIFTY — which uses two arrays (B and D) to store the player’s 
scores and dice rolls respectively. It is a simple game. You and 
the computer are in arace to roll a total of 5@ or more. You roll 
two dice at once, but the only time you score and get the total of 
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the dice roll added to your accumulating total, is when both 
dice come up with the same number. 


You should know enough about how programs work at this 
stage to be able to determine what each section does, so we will 
not explain this relatively simple program. Get it up and 
running and decide for yourself how each section works. You’ll 
possibly gain more from the program by working it out 
yourself rather than having it explained in detail by us. 


Here is the program listing for Full Fathom Fifty: 


1 
[Bs 
29 
38 
4 
38 
ae 
36 
62 
Vas 


REM FULL FATHOM FIFTY 

PAPER @:CLS:INK 2 | 

DIM BC2):DIM DC2):DIN AS$(C38) -=ROUND=1 
FOR A=] 70 2 

PLOT 8,5,"Fult Fathom Fifty" 

PLOT 9,24,"Round number "+STR#CROLIND ) 
PLOT 13,1@,"ORIC: "°+STRSCBC1I) 

PLOT 12,12, "HUMAN: “+STRSCBC2)) 

IF BC1)J>43 OR BC2)>49 THEN 238 

IF A=] THEN PLOT 93,14,°MY TURN TO ROL 


L. ce 


BQ 


IF A=2 THEN PLOT 8,14,"PRESS ?R? TO R 


OLL":-GET AS 
S@ 2AP:2AP-:2AP 
106 PLOT 1,14;" 


110 FOR C=1 70 2 
12@ PLOT 8,14,"ROLLING DIE No. "+STR#(C) 
13@ FOR E=1 TO 1@:EXPLODE :WAIT AXS-:NEAT 


E 


14@ DCCJ=INTCRNDC1)46)+1 
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106 

15@ PLOT 5,14,” IT CAME UP “+STR$ 
Be Oe aa : 

166 PING:WAIT 188 

165 NEXT C 

166 WAIT 168 

17@ IF 0013<>DC2) THEN PLOT 8,14,"NO DOU 
BLE-NO SCORE" 

180 ITFDC1J=DC2ZITHENPLOT8, 14, "DOUBLE22 SC 
ORES "+STR$C3XDC133-BCAI=BC 

AJ+3xXDNC1) 

185 WAIT 158 

19@ SHOOT:PLOT 1,14," 

‘218 NEXT A 

220 ROUND=ROUND+1:GOTO 32 

230 PLOT 3,;24;"And the winner is serves” 
235 WAITS@ 

240 JF BUC1I2<BC2)) THEN PLOT 285295 "7CuU 22 
20@ IF BCIIDBC2Z) THEN PLOT 28; 24; "ME 98” 
260 FOR A=] TO 1@:EXPLODE:WAIT AXI@:NEXT 


Here’s how the program can look: 


Full Fathom Fifty 
BRIC: 3 


HUMAN? 47 
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PRESS °R? 10° ROLL 


Round No, 8 


CHAPTER FOURTEEN 
LET THE GOOD 
GRAPHICS ROLL 


Your computer has a very wide range of graphic abilities, and 
in this chapter, we’ll introduce you to those abilities. After the 
introduction of each function, we’ll give you a program to 
demonstrate its use. 


These demonstrations should be seen only as introductions to 
the graphics potential of your computer. Experimentation will 
demonstrate just how far you can stretch the Oric. 


PLOT LX,LY,CN 


Plot, as you will have gathered from previous chapters, can be 
used to put information at a specific point on the screen. But 
plot can also be used to put dots or colour onto the screen. 
Before you can plot onto the screen in single blocks, it is best to 
put the computer into the correct LORES mode. For normal 
operation, and normal plotting this should be LORES 9, but 
when you want to use the alternate character set, then you need 
to use LORES 1. The numbers which follow the PLOT 
command are: 


LX — the X co-ordinate for the low-res. screen §—38 

LY — the Y co-ordinate for the low-res. screen 0—26 

CN— the ASCII value of the character, or control 
character to be printed. PLOT can be used in the 
same way as an escape character. 
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Run the next program, entering numbers between zero and 38 
for the X value, and zero and 26 for the Y value. This program 
plots CHR$(17), (the control character for a red background), 
onto the co-ordinates X,Y: 


1@ REM PLOT 
2@ INPUT "ENTER &* aia 
3@ INPUT “ENTER Y ae af 


42 CLS:LORES @ 
5@ PLOT *;Y;3;1?7 
6@ GOTO 22 


You can get the computer to generate PLOT co-ordinates at 
random, and then ‘reflect’ them into each of the four corners of 
the screen as our next program convincingly demonstrates: 


1@ REM BUTTERFLY PLOT 

15 LORES @ 

20 X=INTCRNDCIIXI9) +1 

38 Y=INTCRNDC1)*13) 

46 PLOT X;,Y5;18 

2@ PLOT 38-%,Y,18 

6@ PLOT *,26-Y,18 

?7@ PLOT 38-%,;26-¥18 

B86 GOTO 22 

Add colour, and see how extraordinary the result can be: 


1@ REM BUTTERFLY PLOT Mk I] 

12 REM PRESS ANY KEY TO CLEAR SCREEN 
15 LORES @ 

28 X=INTCRNDCIJ%*19)+1 

25 IF KEY$<>"" THEN LORES @ 

3@ Y=INTCRNOC1J*13) 

35 C=INTCRNDO1)X7j3+17 
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40 PLOT X%,Y;C 

5@ PLOT 38-xX,7,;C 

6@ PLOT &%;,26-Y;C 

7@ PLOT 38-%,26-7T,C 
886 GOTO 20 


A HIGHER GRAPHIC ABILITY 


You may have thought that the PLOT blocks were a little large 
to be any real use in graphic programs. Most of the time you 
will find that they are much too large. Your Oric is equipped 
with a command which will change your whole outlook on life, 
HIRES, which stands for High-Resolution. When the 
computer is given this command it does a very weird thing, try it 
and see. Type HIRES followed by RETURN. Did you see that 
flash? That was the computer changing from the crude, 38 by 
26 resolution display to the much finer, and much more fun, 
239 by 199 display. 


FINER PLOTTING 


In this HIRES mode, you cannot use PLOT, you need another 
command. Of course, this command ts available, but can be a 
little confusing at first. CURSET HX,HY,FB; 


HX — the X co-ordinate for the Hi-res. screen §6—239 
HY — the Y co-ordinate for the Hi-res. screen @—199 
FB — the Foreground/Background number (as follows) 
YH) In present background INK 
l In present foreground INK 


2 Invertion between present background and foregrou 


INK’s 
3 Null, has no effect on display. 


When you ‘curset’ a point onto a high resolution screen you will 
notice an immediate difference, how small the point is. Before 
you can fully realise the potential of the CURSET command, 
you will have to try these short programs which ‘curset’ a series 
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of mathematical curves onto the screen, using the functions PI, 
(n), SIN, (sine) and COS (cosine) to create a wonderful display. 
1@ REM SIN CURSET 

20 PAPER @:HIRES:INK 6 

3@ FOR A=@ TO 2xXPI STEP .@] 

4Q@ CURSET33XAt17; 18@+1@0XSINCA); 1 

50 NEXT A 


10 REM COS CURSET 

26 PAPER @:HIRES:INK 6 

3@ FOR A=@ TO 2xkPI STEP .@l 

4@ CURSET33xXAt17, 1@0+1@@xXCOS(A), 1 
30 NEXT A 


1@ REM SIN“COS CURSET 

24 PAPER @:HIRES:INK 6 

34 FOR A=@ TO 2xPI STEP .g8@9 

4@ CURSE T33XA+17, 1@0+1@@XCOS(A); 1 
3@ CURSET33XA+17, 1@@+1@@xXSIN(AD; 1 
6@ NEXT A 


16 REM STARFLIGHT 

22 PAPER @:HIRES?:?INK 5 

38 FOR B=1@ TO16@ STEP 20 

40 FOR A=@ TO 2xPI STEP .@1 

5@ CURSET 1@xXA+B, 8OXCOSCAJ+110; 1 
6@ CURSET I@xXAtB, 8@KSINCAIJ+11@; 1 
72@ NEXT ASB 


1@ REM QUAL 
20 PAPER @:HIRES:INK 5 
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38 FOR A=] TO 105 STEP .3 

4Q B=PIXA/’5S@:C=35xXCOS(BIt125 
9@ D=79XSINCBI+t83 

6@ CURSET C;D;1 

7@ CURSET C72,0;1 

8@ CURSET C,0/72;1 

9386 CURSET C/2,D/2; 1 

1@6 NEXT A 


DRAW RX,RY,FB 


Draw is a very useful command on the Oric, it allows you to 
draw a line from the last point you ‘curseted’ or drew to, to a 
point on the screen RX,RY plus the current cursor 
co-ordinates. 


RX — Relative draw X co-ordinate 
RY — Relative draw Y co-ordinate 
FB— As for CURSET. 


In our first DRAW program, the computer ‘cursets’ an X,Y 
position (chosen at random by the subroutine from line 76), 
then draws three lines from this, ‘curseting’ X,Y after each line 
is drawn to ‘restart’ the new line from the same position as the 
other lines have used for a beginning point. 


1@ REM DRAW 

15> PAPER @:HIRES:INK 6 

20 GOSUB 7@ 

30 CURSET X;,Y,1:DRAW X%,199-Y,1:WAIT 20 
4@ CURSET X;,;Y;1?DRAW 239-x%,Y,1:WAIT 28 
2@ CURSET %;Y;1:DRAW 239-X,199-Y,1:walt 
28 

6G GOTO 26 

76 X=RNDCIJKIIP 

80 Y=RNDC1)*93 


38 
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WAIT 10 


18@ RETURN 


Our second draw program adds a little colour: 


12 
ibe 
20 
38 
4 
3 
2 
68 
78 
BY 
90 
a5 


REM DRAW I1 

PAPER @:HIRES:INK 6 

GOSUB 72 

CURSET X,Y,;1:DRAW X,199-Y,1:WAIT 22 
CURSET X,Y;,;1:DRAW 239-X%,Y,1:WAIT 2@ 
CURSET X,Y,1:DRAW 239-xX,199-Y,1:WAIT 


GOTO 22 
S=RNDO1JX117 
Y=RNDC 13X93 


WAIT 12 
INK RNDO1J*?) +1 


1@@ RETURN 


This can be further developed to produce the dynamic program 
WARP SPEED: 


18 
20 
38 
40 
38 
68 
72 
8 
38 


REM WARP SPEED 
PAPER @-HIRES:INK 6 
S=RNDCIJ*I117 
Y=RNDC1)x*3S3 

CURSET 117;99;,@ 
DRAW %5,7;1 

CURSET -1475:335 9 
DRAW-%, TY; 1 

CURSET 117,99;@ 


10@ DRAW x,-T,1 
11@ CURSET 117,993,@ 
120 DRAW-X,-Y,; ] 
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132 PATTERN RNDC1)%255 
14@ GOTO 3@ 


In Warp Speed, a point is ‘curseted’ in the middle of the screen, 
and then four lines are drawn out in a symmetrical form. Line 
136 holds a command we haven’t seen before, PATTERN. 
This new command changes the build up of the drawn line. You 
remember how we create one row of binary numbers to 
represent blocks in a row of a UDG? well the DRAW line is 
built up in a similar way, only using a row with eight columns 
instead of 6. What line 13@ is doing is choosing a random 
number to make the drawn line less ‘solid’. 


Our next program, based on one written by Jeremy Ruston, 
uses CURSET and DRAW to remarkably good effect: 
1@ REM Urban Pacifier 

2@ REM Based on ’?String Art? 

38 REM by Jeremy Ruston 

4@ PAPER @:HIRES:INK 6 

38 KX=INTCRNDC1)*239) 

6@ Y=INTCRNDC1J*199) 

7@ L=INTCRNDC1)X*239) 

8@ M=INTCRNDC1)*199) 

3@ U=15:U=7 

10@ DEF FN RCXJ=INT CRNDC1]IXX) 
11@ GOSUB 278 

128 NUM=NUM-1 

13@- IF NUM=@ THEN GOSUB 272 

14@ CURSET X,7Y;1 

15@ DRAW L-X,M-Y; ] 

166 PLAY 1,86,1,18 

17@ IF XtAD238 OR X+tA<1 THEN AF-A 
18@ IF Y+B>198 OR Y+B<1 THEN B=-B 
196 IF LtC>238 OR L+C<] THEN C=-C 
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260 IF M+D>198 OR MtD<] THEN D=-D 
21Q@ PLAY @,1,1,12 
220 X=XtA?Y=YtB 

230 L=L+C:M=M+p 

24@ CO=FN R260) 

296 IF CO<4 THEN RUN 
260 GOTO 120 

2/70 A=FN RCUJ-VU 

28@ B=FN R(UJ-U 

29@ C=FN RCUJ—-Y 

30@ D=FN RCUJ)-U 

31@ NUM=FN RO26)+10 
32@ INK RNDC1)X? +1 
338 V=RNDCIJ*6+7 

396 RETURN 


CIRCLE R,FB 


Not only can your wonderful machine draw lines here, there 
and everywhere, it can also draw circles! Circle is quite simple 
to use. First of all you ‘curset’ the center of the circle where you 
want it on the screen, then you tell the computer to draw a 
CIRCLE radius R, Foreground/Background colour (see 
CURSET). 


The next two programs both use circle, the first draws them 
randomly about the screen, while the second also employs the 
command PATTERN again to produce a dotted circle outline. 


108 REM CIRCLING AROUND 
2@ PAPER @:HIRES:INK 6 
38 *=INTCRNDO1J*1793+3¢ 
4@ Y=INTCRNDC1)X138) +36 
3@ R=INTCRNDCOI]J*3@)+1 
6@ CURSET *,Y,8 
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7 
¥o 
BY 


1 
20 
38 
40 
re) 2) 
66 
65 
76 
Za 
BY 
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CIRCLE R,1] 
IF RNDC1J>.97 THEN HIRES 
GOTO3@ 


REN CIRCLING AROUND WITH PATTERN 
PAPER @:HIRES:INK 6 
X=JINTCRNDC1)%179) +32 
Y=INTCRNDC1)*138)+32 
R=INTCRNDC1)X*30)+1 

CURSET *,Y;4 

PATTERN RNDC13X255 

CIRCLE R; 1 

IF RNDC13>.97 THEN HIRES 

GOTO3@ 


MULTI-COLOURS 


You are generally restricted to eight colours on your Oric, 
(counting black and white as colours). However, with the use of 
user defined graphics, and the plot command, we can easily mix 
a few colours to produce some attractive hues. 


1 
20 
38 
40 
ra) 4) 
62 
78 
4) 
36 


REM RING THE CHANGES 
PAPER @:INK 6-:CLS 
POKE 46344, 21 

POKE 46345; 42 

POKE 46346; 2} 

POKE 46347,42 

POKE 46348, 21 

POKE 46348, 42 

POKE 46349, 21 


188 POKE 46358, 42 
11@ Ag="g" 
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12@ FOR T=1 TO 6:AS=AStASF:NEXT T 

130 AS=LEFTSCAS, 333 

194@ FOR A=17 TO 23 

150 FOR B=@ T0 / 

155 PLOT 8,4,"BACKGROUND "“+STRSCA-17) 
168 PLOT @,Btr1@,A:PLOT 1,B+t1@,B:PLOT 2,B 
+10,A$ 

165 PLOT S65 BIOs L62:PLOT 37,8710; STRSCB) 
17@ NEXT B 

18@ PLOT 18,26, ""PRESS A KEY" :GET As 

139@ NEXT A 

266 GOTO 14@ 


DO NOT ADJUST YOUR SET 


This program by Paul Holmes demands two user-defined 
graphics to create a rather pretty display, useful if you want to 
tune your T.V. into the best picture. 


1a REM DO NOT ADJUST YOUR SET 

2@ REM Paul Holmes 

38 RESTORE 

4@ FOR A=46@80+(8xXASCC"#H'IJ) TO 46088+(8* 
ASEC"$")+7) 

5@ READ US:POKE A;US 

55 NEXT A 

56 |]=@ 

62 DATA 7,73;73;73;73:7373;73;62,62,62,62,62,6 
25302302 

7@ PAPER @:INK 7:CLS 

75 BS=CHR$(126)+CHRS(C126)+"H#HHH"+CHRS C12 
6)+CHR$(C1 26) 

8@ FOR 2=1 10 6 
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98 FOF J=1 TO 3 

168 PRINT TAB(22)CHR$(27) ;CHR$(Z+8B) ;"$$ 
$$"; 

11@ PRINT CHR$(27) ;CHRS(Z+8] } 3B ;CHRS(27 
1 3CHR$(2+8Q) ; 

12@ PRINT"$$$$"CHR$(27) ;CHR$(8B) 

13@ NEXT J,2 

14@ PLOT 3,25,"PRESS A KEY FOR NEXT INK 
COLOUR" 

15@ GET as 

16@ INK |] 

[65 PLOT O25; 72PL01 1425516 

176 I=I+1:IF I=8 THEN I=@ 

18@ GOTO 142 

OTHER HIRES COMMANDS 


Less used, but still available are the commands like CURMOV, 
CHAR and FILL. CURMOV X,Y,FB is just like CURSET 
apart from the fact that X,Y are relative to the last point set. 
CHAR X,S,FB draws a normal, or alternate character on the 
HIRES screen at the last point set. S is the character set, (@ for 
standard, 1.e. LORES @, and | for alternate, i.e. LORES 1), X 
is the ASCII code for the letter or character to be printed, and 
FB is normal Foreground/Background. 


FILL R,CC,N this command ‘paints’ in an area of the screen 
with a particular colour (as specified by the N, i.e. as in 
PLOTting colour). Note, when you wish to return back to 
ordinary character, low res. display, type TEXT followed by 
enter. 


To get the most out of your graphics it is best if you experiment, 
apart from it being highly productive and educational, it also 
gives you some satisfaction to write some programs, rather 
than typing in ours all the time. | 
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GETTING TAPED 





You may have already realised that when you turn off your 
computer after a day working on it, you lose what you had 
typed in so laboriously. This need no longer be a problem, all 
you need is a blank cassette tape and a tape recorder which hasa 
five-pin DIN socket. You should find amongst the goodies 
which came with your Oric, athree-pin DIN to athree-pin DIN 
connector, take this out and plug one end into your cassette 
recorder. The other end should be plugged into the right hand 
socket, (looking from the back), of your Oric. We are now 
ready to learn about saving programs to tape. 


CSAVE 


Put your blank cassette tape into the recorder, then type in this 
short program: 


1@ REM CSAVE TEST 

2@ PRINT “THIS IS A CSAVE TEST" 
3@ REM 

4@ REM 


Type, as a direct command: 


CSAVE "TEST" 
DO NOT PRESS RETURN YET! 


Press Record and Play on your cassette recorder, and wait for 
the leader to be wound into the tape so that you are recording 
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on the tape, not the clear plastic at the start. Now you can press 
RETURN. 


After a short pause, you should see the message 
“SAVING ... TEST”’’ appear in the top left hand corner of 
the screen, this tells you that your program is now being 
converted into sound which is being recorded onto your blank 
tape. 


When the saving is complete, the message ‘Ready’ should 
appear. 


That’s all very well, but how do you get that program back into 
the computer? 


CLOAD 


Rewind your tape, type NEW followed by RETURN on your 
computer and LIST the program, just to check there is nothing 
left in memory. 


Type, as a direct command: 


CLOAD "TEST" 


The message ‘Searching ...’ will appear in the top left again. 
Press play on your recorder, and set the volume to about three 
quarters. After a few seconds, with any luck, you should see the 
message ‘Loading ... TEST’. Once it has loaded, list the 
program and check that there are no errors in the listing, if there 
are rewind the tape, choose a different volume setting and 
re-cload the program. When you make a successful CLOAD, 
mark the volume on your tape recorder so that you don’t have 
to fiddle around every time you want to load a program. If you 
cannot get the tape to load after many tries, then there is a much 
more reliable, but a lot slower way of saving and loading. Get 
back to the original TEST program, and set the recorder and © 
computer up as if you were going to make a normal CSAVE. 
Type as a direct command: 
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CSAVE "TEST",S 
And carry out the necessary actions, i.e. record/play on the 
tape, etc. 


To load a program which has been ‘super saved’, (i.e. saved at a 
slower, but much more reliable rate), type; 

CLOAD “TEST",S 

MORE TRICKS WITH LOAD AND SAVE 


If, when you save at the normal rate, you include the word 
AUTO after the quotes, i.e.; 


CSAVE "TEST", AUTO 


then when you load the program, using; 


CLOAD “TEST” 
it will run automatically. Try it with the TEST program. 


You can also save areas of memory. The screen is an area of 
memory called the display file. The display file for a low-res. 
screen is found from 4890@ to 49119, you can save this area of 
memory by typing; 


CSAVE "SCREEN", A48@0@,E£49113 

You can, in fact, save any area of memory you wish. To re-load 
the SCREEN, type; 

CLOAD" SCREEN", A4F8008 


This ends this short chapter on saving and loading. You can 
now prepare for the next chapter armed with as many blank 
tapes as you can get hold of. It contains many games, all worth 
a good save. 


CHAPTER SIXTEEN 
MORE GREAT GAMES 


In this chapter, we’ll be giving you the listing of a number of 
major programs. The notes on these will not be as extensive as 
you’ve had before with some of the programs in previous 
chapters, but the introductions to the programs will highlight 
some of the more interesting programming techniques used. 
Examination of the listings will give you a number of ideas you 
can apply to your own programs. 


BAGATELLE 


This is a simplified pinball machine, in which you and the 
computer take it in turn to roll diamond shaped balls down a 
frame which contains a series of numbers and letters. Your 
score tends to increase each time you hit an obstacle on the way 
down the frame, and the ball will bounce off the obstacles, 
increasing your chances of hitting even more of them. Hitting 
the sides of the frame, or bouncing around on the bottom, can 
cost you small penalties. In general though, each time the ball 
hits something your score will increase. 


If you look at the sample printouts which follow this 
introduction, you’ll see the numbers | to 9 along the top of the 
play area. 


You start your ball rolling down the frame from any one of 
those. You and the computer have five balls each, to roll down 
the Bagatelle frame, and you take it in turns to do so. You have 
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the first roll. Then the computer will tell you which ball it 
intends to roll down the frame, and then roll this ball. 


Here are some sample printouts; 


123456783 
/ \ 
¢ 1 1 4] ‘\ 
Fa \ 
LER 2S KX ZN Human: 113 
7 ‘\ 
Y 34111 ~=41 \ Machine: @ 
7 \ 
/ \ 
ff 7 7, 2p ™ 
4 \ 
45 5 5 S\N 
f \ 
v \ 
7 S| 3 39 \ Ball # 
v4 \ 
f § 8 8 N 
v4 \ 


LAA L\\NNNNN 
L444 S\\\N\N\\™W 
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123456789 . 
£xX & X @ Human: 14] 


lok 44 i Machine: @ 


Ball # 


8 


CO 
CO 


oe! UNA ST NOE OR Oe, NG AR ONG ROR OR 
NJ 
NJ 
Se 

EG il i Gf A fl ef. he Gf YF fk Ge “gp 


CL LIAS SD OOS 
LOSS LS O\NNV\\NNNNN 


Here’s the listing to Bagatelle: 

1@ REM BAGATELLE 

20 GOSUB 1880 

38 GOSUB 5@@ 

48 FOR Y=] TO S:PLOT 25,14,STRS$CYT) 

28 FOR X=] TO 2 

68 JF xX=2 THEN PLOT 25,14,STR$CYJ+" Me" 
61 IF X=2 THEN K=INTCRNDC1I)X9)+1-PLOT 1, 
215° b well stark with ~*~ 
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62 IF X=2 THEN PLOT 19,21,STRSCK) -2AP:WA 
IT 180 
OS TF x22 THEN. PLOT 14213." 


YO IF X=1 THEN PLOT 28,14, "You" 

21 IF X=1 THEN INPUT "Which No. to start 
With "jK 

P2 IF X=] THEN IF K<1 OR KOS THEN 71 

S@ PLOT 2+K,@,STR#$CK)J:-PLAY 6,1,1,20 

85 PLOT 4,@,"123456789":PLOT 6,0, 20 

3@ BA=K+3:EA=BA 

1@@ BD=1 -ED=] 

118 IA=1 

12@ [D=1 

13@ PLOT EA,ED," " :EA=BA:ED=BD 

19¢@-PLOT .BAs BO. °"o © 

1686 FL=@:SA=SCRNCBA, BDt1 3 

170 IF SA<>32 THEN CCXIJ=COXIJ+SA-48?FL=1: 

GOTO 220 

180 SA=SCRNCBAt+1, BD) 

198 IF SA<>32 THEN CCX3=CCXI+SA-48-FL=1: 

GOTO 222 

288 SA=SCRNCBA-1, BD) 

216 IF SACD>32 THEN COXJ=COXI+SA-48-FL=] 

220 JF FLAG=1THEN PLAY1,1,1,;2@:IFRNDC1J> 

» STHENTA=-IA:]D=-ID 

225 PLOT 28,4,STR#$CC1IJ:PLOT 28,6,STRSCC 

C23) 


238 BO=BD+tCIDXRNDC1))+@.75 
235 IF BA<3 THEN JA=-IA-BA=5 


236 JF BO<1 THEN [D=-ID:BD=3 
237 IF BAD IS THEN JA=-IA:BA=13 
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240 BA=BAt CIAXRNDC1)3) 

290 IF BD<193 THEN 138 

260 PLAY 1,86,2,18 

278 GOSUB 5e@e@ 

288 NEXT X,Y 

300 PLOT 5,21;,;"The winner is" 

31@ IF CCI3<CC2) THEN PLOT 19,21, "the ma 
chine" 

320 IF CC2)<CC1)I THEN PLOT 19,21, "the hu 


it 


man 
338 IF CC€2)=CC1} THEN PLOT 19,;21,"-- AD 
RAW --" | 

49@ EXPLODE -END 

I@@ CLS 7 

9861 PLOT 4,@8,°123456783" :PLOT 2154; "Huma 
n=: "+STRS(CC1I) 

282 PLOT @,@, 20 

985 PLOT 19,6,"Machine: “+STRECC02)) 

3286 PLOT 19,14, "Ball #" 

918 FOR Q@=] TO 139 

926 PLOT 1,;Q,"/7":PLOT 16,Q,°X" 

525 PLOT @,Q,17:PLOT 18,Q0,23:PLOT 17,Q0,2 
926 PRINT 

93@ NEXT G 

535 PLOL. 25-183 7FFZ7FFZ7Z SNS 

236 PLOT @,18,17:PLOT @,19,1?7 

937 PRINT:?PRINT=PRINT-:PRINT-PRINT 

938 PLOT18,18,23:PLOT18,19,23:PLOT17,18, 
2:PLOT17;19,2 

54@ PLOT 1,19, "44AS7S777/4\\\NN\\N\"' 

99@ PLOT 5;2,"1 1 1":PLOT 3,;4,"2 xX @ 
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mw 2" 

SOUUPLOF 4405") i 4: 

370° PLOT Sy9y"7 <7 a ge 

58¢°'PLOT: *33.L1s5 5 J a ay 

53@ PLOT 6,14,"9 S 9S" :PLOT 4,16,"8 
8 8" 

6@@ RETURN 

1080 FOR A=46888+(SBxCASCCO"8"jJIIITO 46080+ 
(SxCASC Ue e739 

1010 READ B 

1@2@ POKE A;B 

1030 NEAT A 

104@ DATA 12,18, 33;,45,45,33,18,12 

1@5@ DINCC2) 

1@6@ PAPER @:INK 6:CLS 

1070 RETURN 


HISSING SID 


In this program, by Paul Toland, you are in control of a snake, 
called Sid, and you must try to grow your snake as long as 
possible, by directing it to the asterisk signs (*) which it eats. 
However, the *’s remain on the screen for a decreasingly short 
time, after which they turn into poisonous plus signs (+ ). Poor 
Sid will die if he eats a + sign, or if he runs into the border or 
himself. 


Once the game is over, you will be told how long Sid managed 
to become. 
Here are a few sample printouts for Hissing Sid; 
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CAPS 


HHHHHHHS 
# 


4 
# 
# 
# # 
tt + # 
# # 
HHRHHHH 
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129 
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CAPS 
+ 
+ + 
+ + 
x + 
+ 
od 
+ + 
~ 
- 
+ 
= 
# 
# 
+ + # # 
+ 4 aed H+ # - 
+ HHHHHHH 2 
+ cv. 
++ 2 
4 + 
- + 
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Here’s the program listing: 


1@ REM HISSING SID 

2@ GOSUB 48d 

38 X$=CHRS$CIGI+CHRSC11) -L=2 

40 Y$=CHRSC1GI+CHRS(18) 

30 PAPER @:INK 6:CLS 

68 MX=INTCRNDC1)*38) 

7B MY=INTCRNOC1)*263 

820 IF SCRNCMX,MY)<>32 THEN 62 

3@ PLOT MxX,MY, "x" 

19@ PLAY 1,1;-2, 28 

11@ FOR I=1 TO 386-L 

128 OX=ASC(XK$ J 

13@ IF DEEK(783)=48255 THEN OxX=OXx+t!1 

131 IF DEEKC783)=48351 THEN OxX=0x%-1 

14@ OY=ASCCY$) 

15@ IF DEEKC783)=48375 THEN OY=O0Y-1 

151 IF DEEK(783)=48313 THEN OY=O0Ytr1 

16@ IF OX=ASCCX#$) AND OY=ASCCY$) THEN Ox 
=OXtOX-ASCCMIDSC XS, 2,1)) 

161 IF OX=ASC(X$) AND OY=ASCCY$) THEN OY 
=OY+tOY-ASC(MIDSCY$, 2,13) 

165 IF OX<@ OR OX>38 OR OY<@ OROY>26 THE 
N 24@ 

176 IF SCRNCOX,0Y)=42 THEN L=Lt]l 

186 IF SCRNCOX,OY)=43 HEN 268 

182 PLOT Ox,OY,"#" 

185 PLOT ASCCMIDSC(X$,L, 13), ASCCMIDS(YS,L 
Vagos 

198 X$=CHRSCOXI+LEFTSCX$,L) 
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288 Y$=CHRS(OYI+LEFT$(Y$;L) 
21@ NEXT | 


228 IF SCRN(MX,MY}=42 THEN PLOT MX,MY, "+ 


238 GOTO 62 

24@ PLOT 1,8,"YOU CRASHED INTO THE SURKO 
UNDING WALL-" 

208 GOTO 276 

26@ PLOT 1,@,"YOU HIT SOMETHING YOU SHOU 
LD NOT HAVE-" 

27@ PLOT 1,2,"AFTER GROWING TO "+STRS(LJ 
28@ FOR A=? TO @STEP -1:PAPER A:WAIT 28: 
NEXT A : 

29@ PLOT 7;,25,"PRESS ANY KEY TO PLAT AGA 
TN" 

2395 IF KEY$<>"" THEN GOTO 295 

306 GET AF 

318 GOTO 34 

400 FOR A=4668O+CBXASCO"H" J ITOF6OSOtCSxXA 
Sola ot) 

410 READ U 

426 POKE A,U 

43@ NEXT A 

446 RETURN 

45@ DATA 51,51,63,18,18,63,51,51 


ALIEN ESCAPE 


In this program, by Daniel Mills, you have to stop the aliens 
from getting past your command post. If you let more than 5 
aliens escape, they will invade earth killing millions of innocent 
people. Your ship will destroy all aliens on contact, so you must 
run into them using the cursor keys to control your movements 
left and right. 
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This program uses more UDG’s than we have ever encountered 
so far. It is worth typing it in just to see them. 


CAPS 
SCORE: 3538 ESCAPED ALIENS: 3 
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SCORE: @ ESCAPED ALIENS: @ 
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Here’s the listing for Alien Escape; 
t@ REM ALIEN ESCAPE 
2@ PAPER @:INK 6:CLS:GOSUB 522 
25 PRINT CHR$(6) S;CHRSC173) 
3@ FOR A=1 TO 2@:PLOT RND(C1)*38+1,RNDC1) 
*¥Z26+)],"., "INEXT A 
40 FOR A=] TO 26?PL.OT @,A, INTORNDCILIX/7 J+ 
L?NEAT A 
45 PLOT Uy 20; 32PL0T 631951 
58 X=10:S=@ : 
60 WAIT 182 
PO P=O:MP=2 
8@ S=StP © 
9@ PLOT 1,@8,"SCORE :"+STR$CSkK1Q) 
1@@ P=1 
11@ N=13 
120 Y=19 
132 C+ 
48 PLOY X5.205 “SPLOT xs 135" * 
145 PLOT 1,0,"SCORE:"+STRS$(CSk1Q) 
146 PLOT 15;8,"ESCAPED ALIENS: "+STRSCMP) 
15@ IF DEEKC?83)=48351 AND *>1 THEN xX=x- 


16@ IF DEEK(C783)=48255 AND X<38 THEN AK=x% 
17@ PLOT *%, 28, "$"=2PLOT *, 13; °8" 

18@ PLOT N,P," " 

182 PLAY ],1,1;,;Px12 

185 PLOT @; INTCORNDC1I)X*17)+1, INT CORNDC1 IX? 


19@ IF RNDC1)>.65 THEN N=NtINTCRNDC1)*3- 
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i) 

20@ IF N=1 THEN N=2 

210 JF N=38 THEN N#3?7 

220 =Pt+] 

2235 IF P>25 THEN MP=MPt+1 -P=] 

226 IF MP2S THEN GOTO 782 

230 PLOT N;P,"%" 3 

240 IF N=xX AND CP=20@ OR P=19 OR P=18) TH 
EN 688 


290 GOTO 148 
588 FOR A=46686+(8XASCO"H")) TO 46888t(8 


XASC(C"%") +7) . 

91@ READ US:POKE A;,US-:NEXT A 

220 RETURN 

532 DATA @,0,;@,4,14;315,31,31 

54@ DATA 4,4;,;21,21;21,31;,21,;4 

55@ DATA 51,12,18,63,45,9,4,2 

608 S=St? 

61@ PLOT N,P," ” 

6286 P=] -N=12 

636 GOTO 1428 

7606 EXPLODE :CLS 

7@5 PRINT:PRINT *PRINT"SCORE:"S 

7@6 PRINT :PRINT -PRINT 

718 PRINT" You have tet two many aliens e 
scape &" 

726 PRINT 

72730 PRINT"They are now taking over the w 
orid, 

724@ PRINT 
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730. PRIN 33222 >s> PRESS ANY KEY FOR NEX 
T MISSON 
766 IF KEY#<>"" THEN 76@ 
770 GET AS:RUN 


FOLLOW ME 


In this game, you have to duplicate the colour and tone pattern 
generated by the computer. There is a catch. At first, you will 
have only one colour/sound combination to remember. Then 
the computer will add a new combination to the first one, and 
play both. The sequence will become longer and longer each 
time you succeed in remembering the sequence. 


You copy the computer’s pattern by using the keys numbered 1 
to 4, (there is a quick reference chart displayed each turn to aid 
you). There is a high score feature. 

1@ REM FOLLOW ME 

26 REN TIM HARTNELL’“DANIEL MILLS 

30 H=@:PAPER @:INK 7:CLS 

40 DATA 2,4,5,6-RESTORE 

398 CLS 

68 AgS="" 

76 S=8 

828 D=188 

90 MS="###H" 

100 PRINTMN$ ;TABC2Z5ICHREC273"CSTIMON" 
110 PLOT 1,3, “SCORE :“+STR$(S) 

115 PLOT 17,;3;?7 

12@ PLOT 18,3, "HIGH SCORE :"+STRS$CH) 
138 PLOT @,4;2 


——_ a i Fit St oo Fo Ce Pi Ge oe 


138 
168 
176 
188 
138 
200 
218 
220 
238 
240 
CAS; 
2495 
209 
260 
272 
232 
230 
380 
318 
320 
330 
349 
350 
368 
378 
382 
338 
400 


419 
426 


430 
442 


GETTINGSTARTEDON YOUR ORIC 
AS=A$+CHR$C INTCRNDC1)*4)+13) 
FOR T=1 TO LENCAS) 

FOR A=] TO ASC(MID$(AS,T,1)) 
READ B 

NEXT A 

RESTORE 

PLOT @,11,B+16 

PLOT 9,15,B 

PLOT CASCC(MID$(A$,T,1)33,15,ASCCMIDS 
Tei. 

PLAY 1,8,1,@ 

MUSIC 1,5,ASCCMID$SCA$,T,13)+1,15 
WAIT 22 

PLAY 8,9,9,2 

PLOT @,11,16 

PLOT CASCCMID$CA$,T,133),15," 
NEXT T 

RESTORE 

FOR A=1 TO 4 

PLOT AX6,15,MID$(STR$(AJ; 1) 
READ B 

PLOT AX6,16,B+t16 

NEXT A 

PLOT AX6,16,16 

RESTORE 

FOR T=1 TO LENCA$) 

FOR A=1 TO Dx3 


IS=KEYS 
IF I$>"@" AND JI$<"5" THEN 680 


NEXT A 
M$=MNIDSCM$, 2) 


430 
462 
478 
434 
438 
308 
312 
920 
938 
342 
958 
602 
48 

614 
626 
632 
640 
654 
669 
670 
638 
6398 
/ BO 
718 
8208 
812 
828 
2) 

838 
IN" 
842 
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INK 3 
PLOT 35383" 7" 
PLOT 353:15-° S27 * 
PLO gos 2a:. 7% 
PLOT S55:33°7 “S* 
MUSIC 1,;0,;7,15:WAIT 20 
MUSIC 1,0,1,15-:WAIT 524 
PLAY 98,9,8,@ 
WAIT O:CLS 
IF M$<>"" THEN 170 
GOTO 888 
IF VALCI$) <>ASCCMIDSCAS,T,13) THEN 4 


MUSIC 1,2, ASCCMNIDSCAS$, T,1)9X2, 15 
WAIT 26 

PLAY 8,0,8,@ 

IF KEY$<>"" THEN 648 

NEXT T 

CLS 

S=St+] 

D=Dp-Sz5 

IF O0<@ THEN D=@ 

IF H<S THEN H=S 

GOTO 188 

ZAP 

PLOT 1,5,"SCORE:"+NIDS$CSTR$CS); 2) 
PLOT 1,8, "HIGH SCORE:"*+MIDSCSTRSCH), 


PLOT 1,17,;"PRESS ANY KEY TO PLAY AGA 


IF KEY$<>"" THEN 848 
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85u GET AS 
868 GOTO 42 


ECOLOGICAL DISASTER 


Here’s your chance to make decisions of national importance. 
The program explains the starting scenario. 


See if you can get the lake to survive longer than 19 weeks. 

1@ REM ECOLOGICAL DISASTER 

20 RAN=RND( 1) -BES=@ 

25 PAPER @:INK 3-CLS 

322 PRINT “You are the Prime Minister’s a 

duisor” ; 

4Q@ PRINT “on natural resources, 

5@ PRINT 

69 PRINT “Part of your job is to stock a 
new it 

7Q@ PRINT “lake in the Midlands with fish 
and" 

8@ PRINT “eels.” 

98 PRINT | 
120 PRINT“Ail very simple, you may think 

But,” 

112 PRINT"there is a probtem, The fish 

and the" 

1280 PRINT"“eels are mortal enemies, 
138 PRINT 

148 PRINT"You must select starting numbe 
is: 0-4" 

15@ PRINT"fish and eels which you think 
will” 
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168 PRINT"ensure the longest posssible s 


urvival” 

17@ PRINT"of the lake,” 

186 PRINT 

19@ PRINT" Press RETURN when you are r 
eady" ; 


260 GET AS-:CLS 

Z21@ INPUT “Enter the starting number of 
eels Cless than 10@)"3E 

ELS 

220 IF EELS) 1@@ OR EELS <1 THEN 218 

238 INPUT “Enter the starting number of 
fish Cless than 100)” ;5F 

ISH 

240 FISH=F ISH’3 :-WE=@ 

25@ FOR G=@ TO 2:FOR Gl=1 JO 12 

260 X=INTCRNOC1IJ*5)+16 

27@ PLOT11,26, "THE LAKE IS EVOLUING" 

280 PLOT32,26,16 

298 PLOT10,26,;,%x 

3@@ MUSIC 1,G6172,G+1,15-MUSIC 1,G6,G1,15: 
MUS iG: 2561725 A>1 4515 

318 WAIT GtG]l 

320 NEXT G1;G 

332 PLAY 1,;0,@,@:MUSIC 1,9,18@,15:WAIT 358 


340 MUSIC 1,8,1,152-WAIT 2S:PLAY G,8,4,%4 

350 WE=WE+] -CLS 

368 PRINT CHR$C27)5°T" ;CHRSC27) 5°L 
REPOR®. O.-P ete” 

372 PRINT 


—_——— oe oe 
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PRINT 
PRINT "At the end of week "“jWE 
EELS=EELS+( C8XEELS-EELSXF ]SH“3) XRAN ) 
FISH=F ISH+( C4XF ISH-F ISHXEELS)J XG. 91) 
PRINT 


PRINT 


PRINT" ----~--~----------------------- 
IF FISH<@ THEN FISH= 

IF EELS<@ THEN EELS=@ 

F=F ISHK1Q@:PRINT"FISH:"INTCF) 
E=EELSK1@:PRINT"EELS =" INTCE) 

IF KEY$<>"" THEN 461 

GET As 

IF EELS<2 OR FISH<2 THEN CLS: GOTO 4 


GOTO 258 

IF WE>SBE THEN BE=WE 

FOR A=1 TO 2404 

A=INTORNDC1IX20)+1 

Y=INTCRNDBC1 3X25) 

PLOT X,Y,"ECOLOGICAL DISASTER" 
MUSIC 1,8,€Y73)+1,15 

PLAY 1,8,0,@2 

NEAT A 

PAPER 1 

FXPLODE:CLS 

PRINT :PRINT:PRINT:PRINT :PRINT ?:PRINT 
PRINT" IT?S ALL OVER NOW, YOUR LAKE L 
TTS" 
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53@ PRINT"LIFE"” :PRINT 

680 PRINT:PRINT’ YOUR LAKE STAYED ALIVE F 
OR “WE" WEEKS" 

618 PRINT:PRINT' THE BEST SO FAR IS "BE 
620 PRINT:PRINT:PRINT"PRESS RETURN TO CO 
NTINUE. " 

638 IF KEY$<>"*" THEN 638 

648 GET AS:GOTO 25 


CASUALTY 


In this program written by Paul Toland and Daniel Mills, you 
are ona minefield which is full of casualties. You have to pusha 
wheelchair around the minefield, avoiding the mines and 
electrified fence, to collect each casualty and bring him or her 
to the hospital (shown as a ‘ +’). The wheelchair can only carry 
one casualty at a time. 


19 REM CASUALTY 

2@ REM PALIL TOLAND 

32 REM DANIEL MILLS 

35 PRINT CHR$(6) 3CHRS$(17) 

4@ GOSUB 42ae 

SQ INK 7:PAPER 4:CLS:PRINT:PRINT 

BB PRINT" XXXXXXKKX KKK KK KKK KK HK HK HM KOM HK KK OK HK OK 
XXX KX" 

7@ FOR A=3 TO 23:PLOT 1,A,"X":PLOT 365A; 
nye 

82 NEXT A 

SQ PLOT 1,24, "XXXXXXXXXXXKXXKKAXKRKARARRR 
XXXXKKXKXX © 

95 FOR I=1 TO 2@:PLOT INTCRNDC1)*34)+2, I 
NTCRNDC1)X20)+3,"%" 
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36 NEXT | 
FOR I=1 TO 26 


186 
11a 
12@ 
132 
14 
134 
168 
178 
188 
198 
209 
218 
220 
238 
246 
258 
268 
278 
282 
285 
298 
368 
314 
315 
328 
332 
342 
358 
368 
Tt] 


x=] 
Y=] 
IF 


NTCRNDC13*34)+1 
NT CRNDC13*16)+?7 
SCRNCX; Y}<>32 THEN 110 


PLOT X,Y; °& 


NEX 
CAR 
RET 
X=] 
Y=4 
A= 
D=8 
PLO 
PLO 
1=D 
IF 
IF 
IF 
IF 
MUS 
X=X 
CH= 
PLO 
PLA 
IF 
IF 
IF 
IF 
IF 


SIF 


i 
=0 
=Q 
8 


T RV," © 

T 18,3,°" 
FEK(783) 

1=48351 THEN A=- 
T=48255 THEN A=! 
1=48319 THEN A=: 
1=48375 THEN A=G: l 

IC 1,Y75, CRET+2)72, 10 

tA:Y=Y+D 

SCRNCX; ¥) 

T *®,Y;35+CAR 

Y¥1,;8,0,@ 

CH=37 THEN 380 

CH=88 THEN 528 

CH=38 AND CAR=1 THEN 348 

CH=38 THEN CAR=1 

CH=43 AND CAR=1 THEN CAR=@:RET=RE 
RET=2@ THEN 368 


1 :D=@ 
>D=8 
D=] 
D=- 
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378 WAIT | 


38@ GOTO 220 
409 READ AS:IF AS="2" THEN RETURN 

41@ FOR I=@ TO ? 

428 READ N:POKE (46@80+8X(ASCCAS)I+II,N 
43@ NEXT | 

448 GOTO 422 

45@ DATA #,48,48, 40,56, 48, 48,55; 54 

46@ DATA $, 48,48, 43,59, 43, 43,55, 54 

47@ DATA &,9,8,28,9,49,49,63,0 

48Q DATA z,0,9,98,9,12,3@,63,63 

49@ DATA 2 

5@@ PLOT X,Y, "x" 

5@5 EXPLODE 

518 PLOT 1,1," YOU HIT A MINE 999899" 
515 GOTO 682 | 
52@ PLOT 1,1," zzz@Z22@ZAAAAAPPPPPPP 82299" 
ZAP 

538 GOTO 622 

549 PLOT 1,1," THE WHEELCHAIR IS OUER-LO 


ADED ga" 

358 EXPLODE -GOTO 688 

268 PING 

078 PLOT igis” TOU" VE. DONE JT 82 obeerrey 
oDo000" 


e# & & & * A 


606 PAPER @:INK 4 

616 PLOT 9,4,"YOU SAVED "+NIDSCSTRSCRET J 
»2)+" OUT OF 26 2" 

615 IF KEY$<>"" THEN 615 

620 GET AS 

638 GOTO 58 


146 GETTING STARTED ON YOUR ORIC 
BOMB RUN II 


In this, the last program in the book, you must blow up the city 
to clear a runway for a safe landing. Press the space bar and a 
bomb will be dropped, if you are a good shot it will destroy one 
of the tower blocks. (Go for the tall buildings first). 


An interesting ending has been put on this game, so you have an 
extra incentive to succeed. 


10 REM BOMB RUN I] 

20 REM DANIEL MILLS/”PETER SHAW 
38 GOSUB 93680 

490 GOSUB 89@8G 

38 FOR A=@ TO 25 

62 FOR B=! TO 35 

7@ PLOT B;,A,* #$* 


86 IF KEY$=" * THEN GOSUB BOMB 
9@ IF SCRN(B+3,A)<> 32 THEN GOTO CRASH 
186 WAIT 3 


VIG: PEAY Baistsi¥ 

12@ NEXT B 

13@ PLOT B,A, © 

14@ NEXT A 

150: ‘PLOT 33:26," #9" 2PLOT 352653 
16@ FOR A=6 TO 15 

172 PLOT Ay Zby" 2° 

180 WAIT 3 

L3G (PLOT AsZey" ee 

206 WAIT 3 

214 NEXT A-PING 

215 PLOT A; 26; °x%" 

220 PLOT 4,4, MISSION COMPLETE ~- SAFE LA 
NDING" . 
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230. PEO) #373" PRESS: nm REY TO -rEAT “AGAIN: 
240 IF KEY$O"" THEN 248 

2908 GET AS 

266 GOTO 4@ 

30@ REM BOMB 

31@ B1=B 

326 FOR DR=A TO 25 

330 PLOT BIS BR,” *” 

390 B=Bt1:IF B=36 THENPLOT B,A;,”" “:B=1: 
AH=ht 

345 IF A=26 THEN 158 

346 PLAY @,1;,1,;2@ 

347 WAIT 1] 

35@ PLOT B;A,” #$" 

368 IF SCRNCBt+3,A}<>32 THENGOTO CRASH 
378 PLOT B1,DR;,° ° 

388 NEXT DR 

33@ RETURN 

19868 REM CRASH 

1618 EXPLODE 

1420 FOR L=A TO 26 

1038 PLOT B;L,”" #$":PLOT B,L-1,;° 
1646 WAIT L 

1@58@ SHOOT 

18660 NEAT L 

107@ PLOT4,3; "YOU HAVE CRASHED INTO A "+ 
MID$SC(STR$(26-A);,2)+"@ FOOT" 

1980 PLOT1]2,5, "TOWER BLOCK 2” 

19398 EXPLODE 

11808 IF KEY$O"" THEN GOTO 1188 

111@ GOTO 230 
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8202 
BO1B 
8822 
8Q30 
8040 
BO3G 
B068 
BO72 
S8U8B 
80948 
ss} 2) 21) 
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PAPER @:INK 4:CLS 
BOMB=388 :-CRASH=1888 
PUR: bet 10. 32 
H=INTCRNDC13X1@)+15 
PLOT LO,H,"C" 

FOR P=H+1] TO 25 
PLOT -LOyP 

NEXT P 

Nest 20 

RE TURN 

FOR A=46@88+8xX(CASCOC"#"II TO 46688+8 


KCASCOTK" I+? 


3812 
5028 
IB32 
3863] 
3849 
3058 
IZ6O 
3072 
3880 
3832 
3198 
3112 
I12 


READ N 

POKE A,N 

NEXT A 

PRINT CHRS(63 5CHRSC1/) 
RETURN 

DATA 49,56,57,63;63,15,16,2 
DATA 62,48, 18,58,63,58; 34,16 
DATA 6,6,;4,8,8,;12,12,12 

DATA 6,6;4,14,8,12,16,18 
DATA @,18,18;12,30, 38, 38,12 
DATA 8,12, 30,63;,45,63, 45,63 
DATA 45,63, 45,63, 45,63, 45,63 


DATA 14,14,4,31,4,18,17,@ 


CHAPTER 
SEVENTEEN 
USING THE SYSTEM 


This is the last chapter in the book, and in it we’ll discover 
about things such as DEEK, DOKE, CALL and USR. 


As you may have gathered, the computer’s memory is like a lot 
of matchboxes with numbers in. At the very top of this pile of 
matchboxes (the top 16383 matchboxes to be precise), is what’s 
called ‘ROM’. ROM stands for Read Only Memory, that 1s you 
can look at it, but you can’t alter it. The computer uses this to 
interpret what you are telling it to do, and to read the keyboard 
etc. 


Below the ROM there are things like the SCREEN, 1.e. every 
character displayed on the screen at any one time is stored in its 
own location of memory. Each character has its own little 
match box. These areas of memory can be changed, so the 
matchbox is being continually opened, filled, closed, opened, 
emptied, etc, etc. This area of memory is called RAM, Random 
Access Memory. Which means you can open any matchbox 
you like. You don’t need to unpile the lot to get to any one box. 
You can, as it were, open them from the side. 


PEEK 


To look at what’s inside any matchbox from 9— 65535, you use 
PEEK (m), where ‘m’ is the matchbox you are talking about. 
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To put something inside a matchbox use POKE m,n. ‘m7’ is the 
location you want to put your number, and n is your number, 
(this must be between @—255). 


DEEK 


As @—255 is not a very large number range, DEEK is used to 
give a Double pEEK. DEEK(n) gives the contents of the n 
matchbox plus 256 times the contents of the next one. 1.e. 
DEEK (n) gives; 


PEEK(n) + 256*PEEK(n + 1) 


DOKE 


DOKE is a Double POKE. DOKE m,x puts the whole number 
(x/256) into m+ 1 and the remainder goes into m, 1.e.; 


POKE(m + 1), INT (x/256): POKE m,(x — PEEK(m + !)) 


CALL 


Once you have written a machine code program (don’t worry 
about machine code just yet), CALL x transfers, or RUN’s 
your machine code program. 


DEF USR 


Defines the start of the machine code routine. 


FRE 


PRINT FRE(@) returns the amount of matchboxes left empty, 
i.e. how much memory you have left. 


To find out more about ‘machine code’, read Chapter 13 of the 
Oric programming manual. 


APPENDIX: USING 
MATHS 


Here is a summary of the mathematical symbols on your 
computer. 


USUAL SYMBOL COMPUTER SYMBOL 
+ (plus) + 

— (minus) — 

x (multiply) * 

+ (divide) / 


M® (raise to power) Min 
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